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To Marcia, Sharon, Gail and Susan 


Preface 


Of the many programming languages that are currently in common use, none is 
easier to learn or to use than BASIC. Yet this remarkably simple language contains 
enough power and versatility to be used by people in many different occupations 
for a wide variety of applications. Consequently, BASIC programming courses 
have become common in many high schools and junior high schools as well as most 
colleges and universities. Even elementary schools now offer introductory BASIC 
courses to select groups of students! 

Another reason for BASIC's popularity is its widespread availability. The 
language is now available on practically every large computer, and it is supported 
by virtuaily all commercial timesharing services. Moreover, in recent years BASIC 
has become the standard language for most microcomputer applications. Hence the 
language can be used on both large and small computers, in all types of different 
programming environments. 

This book offers instruction in computer programming using the standard 
features of BASIC and the commonly used features of microcomputer BASIC. All 
the principal features of BASIC are discussed. In addition, the book stresses the 
development of programs that are logical, efficient and orderly. Thus, the reader is 
exposed to the principles of good programming practice as well as the specific rules 
of BASIC. 

The style of writing is deliberately elementary. This enables the book to be 
easily understood by a wide reader audience, ranging from high school students to 
practicing professionals. The book is particularly well suited to the advanced 
secondary or beginning college level, either as a textbook for an elementary 
programming course, as a supplementary text for a more comprehensive course in 
analytical techniques or as an effective self-study guide. For the most part, the 
required mathematical level does not go beyond high school algebra. 


In this third edition, the material on microcomputer BASIC has been greatly 
expanded. The text is now organized into three major parts: Elementary BASIC, 
Advanced BASIC and Microcomputer BASIC. Part I presents the commonly used 
features of the language. A brief programming course can be taught from this 
material alone. Part II is concerned with more specialized features, such as 
subroutines, matrix statements and file manipulation. Part III concentrates on the 
enhancements typically available in microcomputer BASIC, with particular em- 
phasis on Microsoft BASIC as implemented on the IBM Personal Computer. This 
material includes a brief chapter on user-friendly programming and a longer 
chapter on microcomputer graphics. 

The material is presented in such a manner that the reader can write complete, 
though elementary, BASIC programs as soon as possible. It is very important that 
the reader write such programs and run them on a computer concurrently with 
reading the text. This greatly enhances the beginning programmer's self-confidence 
and stimulates his or her interest in the subject. (Learning to program a computer is 
like learning to play a musical instrument; it cannot be learned simply by studying a 
textbook!) 


A large number of examples are included as an integral part of the text. These 
include a number of comprehensive programming problems as well as the 
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customary drill type of exercises. In addition, a set of solved problems is included at 
the end of most chapters. These examples and solved problems should be studied 
carefully as the reader progresses through each chapter and begins to write his or 
her own programs. 

Sets of review questions, supplementary problems and programming problems 
are also included at the end of each chapter. The review questions enable the 
reader to test his or her recall of the material presented within the chapter. They 
also provide an effective chapter summary. Most of the supplementary problems 
and programming problems require no special mathematical or technological 
background. The student should solve as many of these problems as possible. 
(Answers to some of the supplementary problems are provided at the end of the 
text.) When using this book as a course text, it may also be advisable for the 
instructor to supplement the programming problems with additional assignments 
that reflect particular disciplinary interests. 

Тһе principal features of the language аге summarized оп the inside back cover 
and in five appendixes, for the reader's convenience. This material should be used 
frequently for ready reference and quick recall. It will be particularly helpful when 
writing or debugging a new program. 

Finally, the reader who completes this book will have learned quite a lot about 
general computer-programming concepts as well as the specific rules of BASIC. He 
or she should be completely convinced that programming with BASIC is not only 
easy but also fun! 


Byron S. GOTTFRIED 
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PARTI: Elementary BASIC 


Chapter 1 


Introductory Concepts 


This book offers instruction in computer programming using a popular, easily learned program- 
ming language called BASIC (Beginner's All-purpose Symbolic Instruction Code). We will see how a 
problem that is initially described in words can be analyzed, outlined and finally transformed into a 
well-organized BASIC program. These concepts are demonstrated in detail by the many sample 
problems that are included in the text. 


1.1 INTRODUCTION TO COMPUTERS 


Today's computers come in a variety of shapes, sizes and costs. Huge, general-purpose computers 
are used by many large corporations, universities, hospitals and government agencies to carry out 
sophisticated scientific and’ business calculations. These computers are generally referred to as 


Fig. 1.1 


2 INTRODUCTORY CONCEPTS [CHAP. 1 


mainframes. They are very expensive (some cost millions of dollars), and they require a carefully 
controlled environment (temperature, humidity, etc.). As a rule, they are not physically accessible to 
the people who use them. 

Mainframes have been available since the early 1950s, though relatively few people knew how to 
use them in the earlier years. Those privileged persons who did use them were generally highly 
trained scientists, engineers and accountants. Thus it is not surprising that computers were viewed 
both with awe and with suspicion by the general public. During the 1960s it became increasingly 
common for students at large universities to learn to program mainframe computers (usually via 
BASIC or some other high-level programming language). As a result, some of the mystery associated 
with the use of computers began to disappear. 

The late 1960s and early 1970s witnessed the development of smaller, less expensive minicom- 
puters. These machines offered the performance of earlier mainframes at a fraction of the cost. Many 
schools and businesses that could not afford mainframes therefore acquired minicomputers as they 
became increasingly available. 

By the mid-1970s, advances in integrated-circuit technology (silicon “сһірѕ”) resulted in the 
development of still smaller and less expensive computers called microcomputers. Because these 
machines are built entirely of integrated circuits, they are not much larger (and not much more 
expensive) than a conventional office typewriter. 

Microcomputers are often referred to as personal computers because most of them are intended 
to be used by only one person at a time. Figure 1.1 shows a student utilizing a personal computer. 

Many modern microcomputers approach minicomputers in computing power, and their 
performance continues to improve dramatically as their cost continues to drop. Thus, they can be 
used for a wide variety of personal, educational, commercial and technical applications. Micro- 
computers are therefore very prevalent in many schools and businesses, and it appears likely that 
they will soon become common household items. . 

Many large organizations utilize microcomputers as terminals ог workstations that are connected 
to larger computers or to other microcomputers through a communications network. When used in 
this manner, microcomputers tend to complement, rather than replace, the use of larger computers. 


1.22 COMPUTER CHARACTERISTICS 


All digital computers, regardless of their Size, are basically electronic devices that can transmit, 
store and manipulate information, or data. There are basically two different types of data: numerical 
data and character-type data (e.g., names, addresses, etc.). Scientific and technical applications 
primarily require the processing of numerical data, whereas business applications usually involve the 
processing of both numerical and character data. Some computers are used only to process 
textual-type character data (e.g., letters, book manuscripts, etc.); this is known as word processing. 

In order to process a particular set of data, the computer must be given an appropriate set of 
instructions, called a program. These instructions are entered into the computer and then stored in a 
portion of the computer's memory. 

A stored program can be executed at any time. This causes the following things to happen. 


l. A set of information, called the input data, is entered into the computer (from a terminal, 
card reader, etc.) and stored in another portion of the computer's memory. 

2. The input data is then processed to produce certain desired results, known as the output data. 
The output data (and perhaps some of the input data) are printed onto a sheet of paper or 
displayed on a monitor (i.e., a video-type display device). 


This three-step procedure can be repeated many times if desired, thus causing a large quantity of 
data to be processed in rapid sequence. It should be understood, however, that each of these steps, 
particularly steps 2 and 3, can be lengthy and complicated. 
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EXAMPLE 1.1 


А computer has been programmed to calculate the area of а circle using the formula À = mr’, given а 
numerical value for the radius r as input data. The following steps are required. 
1. Read the numerical value for the radius of the circle. 


2. Calculate the value of the area, using the above formula. (This value will be stored, along with the input 
data, in the computer’s memory.) 


3, Print (display) the values of the radius and the corresponding area. 
4. Stop. 


Each of these steps will require one or more instructions in a computer program. 
We can represent the entire procedure pictorially, as shown in Fig. 1.2. This is known as a flowchart. 
Flowcharts can be very helpful in assisting the reader to visualize the flow of logic within a program. 


CALCULATE 
A=rR? 


Fig. 1.2 


The foregoing discussion illustrates two important characteristics of a digital computer: memory 
and capability to be programmed. A third important characteristic is its speed and reliability. We will 


say more about memory, speed and reliability in the next few paragraphs. Programmability will be 
discussed at length throughout the remainder of this book. 


Memory 

Every piece of information that is stored within the computer’s memory is encoded as some 
unique combination of zeros and ones. These zeros and ones are called bits (binary digits). Each bit 
is represented by an electronic device that is, in some sense, either “off” (zero) or “on” (one). 

Small computers have memories that are organized into 8-bit multiples called bytes. Normally 
1 byte will represent a single character (i.e., a letter, a single digit or a punctuation symbol); an 
instruction may occupy 1, 2 or 3 bytes, and a single numerical quantity may occupy anywhere from 2 
to 8 bytes, depending on the precision and type of number. 

The size of a computer’s memory is usually expressed as some multiple of 20 = 1024 bytes. This 
is referred to as 1К. Small computers һауе memories whose sizes typically range from 64K to 1024K 


(1M) bytes. 


EXAMPLE 1.2 


The memory of a small personal computer has a capacity of 256K bytes. Thus, as many as 256 x 1024 = 
262,144 characters and/or instructions can be stored in the computer's memory. If the entire memory is used to 
represent character data, then over 3200 names and addresses can be stored within the computer at any one time 


(assuming 80 characters for each name and address). 
If the memory is used to represent numerical data rather than names and addresses, then over 65,000 


individual quantities can be stored at any one time (assuming 4 bytes per number). 


Large computers have memories that are organized into words rather than bytes. Each word will 
consist of a relatively large number of bits—typically 32 or 36. This allows one numerical quantity or 
a small group of characters (typically four or five) to be represented within a single word of memory. 
Large computer memories are usually expressed as some multiple of 1K (i.e., 2 = 1024) words. A 
large computer-may һауе several million words of memory. 
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EXAMPLE 1.3 


The memory of а large general-purpose computer has a capacity of 2048K, which is equivalent to 
2048 x 1024 = 2,097,152 words. If the entire memory is used to represent numerical data, then more than 2 
million numbers can be stored within the computer at any one time. 

If the memory is used to represent characters rather than numerical data, then about 8 million characters 
can be stored at any one time. This is more than enough memory to store the contents of an entire book. 


Most computers also employ auxiliary memory devices (e.g., magnetic tapes, disks, solid-state 
memory devices) in addition to their primary memories. These devices typically range from a few 
hundred thousand bytes (for a small computer) to several million words (for a larger computer). 
Moreover, they allow for the permanent recording of information, since they can be physically 
mounted or dismounted from the computer and stored when not in use. However the access time 
(i.e., the time required to store or retrieve information) is considerably greater for these auxiliary 
devices than for primary memory. 


Speed and Reliability 


Because of its extremely high speed, a computer can carry out calculations in just a few minutes 
that would require months—perhaps even years—if carried out by hand. Simple tasks, such as adding 
two numbers, can be carried out in a fraction of a microsecond (1 usec = 107% sec). Оп a more 
practical level, the end-of-semester grades for all students in a large university can typically be 
processed in just a few minutes of computer time. 

This very high speed is accompanied by an equally high level of reliability. Thus a computer 
practically never makes a mistake of its own accord. Highly publicized “computer” errors, such as a 
person’s receiving a monthly bill of over a million dollars from a local department store, are virtually 

‘always the result of a programming error or an error in data transmission rather than an error caused 
by the computer itself. 


1.3 MODES OF OPERATION 


There are two different ways that a large digital computer facility can be utilized by a large 


number of users. These are the batch mode and the interactive mode. Each has its own advantages for 
certain types of problems. 


Batch Processing 


In the early days of computing, all jobs were processed via batch processing. This mode of 
operation is still in use in some schools and businesses, though it is much less common than it once 
was. 

In batch processing a number of jobs are read into the computer, stored internally and then 
processed sequentially. (A job refers to a computer program and its associated sets of input data that 
are to be processed.) Classical batch processing requires that the program and the data be recorded 
on punched cards. This information is read into the computer by means of a mechanical cardreader 
and then processed. After the job is processed, the output, along with a listing of the computer 
program, is printed on large sheets of paper by a high-speed printer. This form of batch processing is 
now largely obsolete, 

Modern batch Processing is generally tied into a timesharing system (see below). In this system 
the program and the data are typed into the computer via a timesharing terminal or a microcomputer, 


entered. 
Large quantities of information (both programs and data) can be transmitted into and out of the 
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computer very quickly in batch processing. Furthermore, the user need not be present while the job 
is being processed. Therefore this mode of operation is well suited to jobs that require large amounts 
of computer time or are physically lengthy. On the other hand, the total time required for a job to be 
processed in this manner may vary from several minutes to several hours, even though the job may 
have required only a second or two of actual computer time. (The job must wait its turn before it can 
be read, processed and printed out.) Thus batch processing can be undesirable when it is necessary to 
process many small, simple jobs and return the results as quickly as possible. 


Interactive Computing 

Interactive computing is carried out either with a personal computer, such as the one shown in 
Fig. 1.1, or with a computer terminal, as illustrated in Fig. 1.3. In either case the user provides the 
computer with input information through a keyboard, which resembles an ordinary typewriter. The 
corresponding output information is then either printed onto large sheets of paper or displayed on a 
video-type monitor. (Printed output may be more desirable for some types of applications, since it 
provides a “hard copy" of the interactive session; however, the use of a monitor is usually more 
convenient.) Interactive computer terminals are sometimes referred to as consoles. 


Fig. 1.3 
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A significant feature of interactive computing is that the user and the computer are able to 
converse with each other during the computational session. Thus the user may periodically be asked 
to provide certain information that will determine what subsequent actions are to be taken by the 
computer. 


EXAMPLE 1.4 


A student wishes to use a personal computer to calculate the radius of a circle, the area of which has a value 
of 100. A program is available which will calculate the area of a circle, given the radius. (Note that this is just the 
opposite of what the student wishes to do.) This program isn’t exactly what is needed, but it does allow the 
student to proceed by trial and error. The procedure will be to guess a value for the radius and then calculate a 
corresponding area. This trial-and-error procedure continues until the student has found a value for the radius 
that yields an area sufficiently close to 100. 

Once the desired program has been entered, the message 


RADIUS=? 


will be printed. The student then enters a value for the radius. Let us assume that the student enters a value of 5 
for the radius. The computer will respond by printing 


AREA=78.5398 
DO YOU WISH TO REPEAT THE CALCULATION? 
The student then types either YES or NO. If the student types YES, then the message 
RADIUS=? 
will again be printed, and the entire procedure will be repeated. If the student types NO, then the message 
GOODBYE 


is printed and the computation is terminated. 

In Fig. 1.4 we see the information that is printed during a typical interactive session, using the program 
described above. The information typed by the student has been underlined. An approximate value of r = 5.6 
was determined after only three calculations. 


RADIUS=? 5 


AREA= 78.5398 


DO YOU WISH TO REPEAT THE CALCULATION? YES 


RADIUS-? 6 
AREA= 113.097 


DO YOU WISH TO REPEAT THE CALCULATION? YES 


RADIUS=? 5.6 
AREA= 98.5204 


DO YOU WISH TO REPEAT THE CALCULATION? NO 
GOODBYE 


Fig. 1.4 


Notice the manner in which the student and the computer appear to be conversing with one another. Also, 
note that the student waits until he or she sees the calculated value of the area before deciding whether or not to 
carry out another calculation. If another calculation is initiated, the new value for the radius that the student 
supplies will depend on the previously calculated results. 


Programs that are designed for interactive-type applications are sometimes said to be con- 
versational in nature. Computerized games, such as Adventure, checkers and chess, are excellent 
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examples of such interactive applications. So are the fast-action, graphical arcade games, such as 
Space Invaders, Pac-Man and Defender. 


Timesharing 


Timesharing is a form of interactive computing in which many different users are able to use a 
single computer simultaneously. Each user will communicate with the computer through a terminal, 
such as the one shown in Fig. 1.3. The terminals may be wired directly to the computer, or they may 
be connected to the computer over telephone lines or a microwave circuit. Thus a timesharing 
terminal can be located far away—perhaps several hundred miles away—from its host computer. 

Microcomputers, such as that shown in Fig. 1.1, are often used in place of timesharing terminals. 
Such interconnections are becoming particularly common with telephone line connections. This 
arrangement allows a person working at home on his or her own personal computer to access a 
remote computer at school or at the office. 

Since a computer operates much faster than a human sitting at a terminal, one large computer 
can support many terminals at essentially the same time. Therefore each user will be unaware of the 
presence of any other users and will seem to have the remote computer at his or her own disposal. 

Timesharing is best suited for processing relatively simple jobs that do not require extensive data 
transmission or large amounts of computer time. Many of the computer applications that arise in 
schools and commercial offices have these characteristics. Using timesharing, such applications can be 
processed quickly, easily and at minimum expense. 


EXAMPLE 1.5 


A large university has a computer timesharing capability consisting of 100 timesharing terminals and 80 
separate telephone connections. The timesharing terminals, which are located at various places around the 
campus, are wired directly to a large central computer. Each terminal is able to transmit information to or from 
the main computer at a maximum speed of 120 characters per second. 

The telephone connections allow students who are not on campus to connect their personal computers to 
the main computer. Each personal computer can transmit data to or from the computer at a maximum speed of 
120 characters per second. Thus all 180 terminals and microcomputers can interact with the main computer at 
the same time. However, each student will be unaware that others are also using the computer. 


1.4 TYPES OF PROGRAMMING LANGUAGES 


There are many different languages that can be used to program a computer. The most basic of 
these is machine language, a collection of very detailed, cryptic instructions that control the 
computer’s internal circuitry. This is the natural dialect of the computer. Very few computer 
programs are actually written in machine language, however, for two significant reasons: first, 
because machine language is very cumbersome to work with, and second, because most computers 
have their own unique instruction sets. Thus a machine-language program written for one type of 
computer cannot be run on another type of computer without significant alterations. 

Usually, a computer program will be written in some high-level language, the instruction set of 
which is more compatible with human languages and human thought processes. Most of these 
high-level languages are general-purpose languages, such as BASIC. (Other commonly used general- 
purpose languages are Pascal, C, PL/1, Fortran and Cobol.) There are also various high-level special- 
purpose languages whose instruction sets are specifically designed for some particular type of 
application. 

As a rule, a single instruction in a high-level language will be equivalent to several instructions in 
machine language. Moreover, a program that is written in a high-level language can generally be run 
on many different computers with little or no modification. Therefore the use of a high-level language 
offers us some very significant advantages over the use of machine language—namely, simplicity, 
uniformity and portability (i.e., machine independence). 
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A program that is written in a high-level language must, however, be translated into machine 
language before it can be executed. This is known as compilation or interpretation, depending on how 
it is carried out. (Most versions of BASIC are interpreted rather than compiled.) 

It is generally more convenient to develop a new program using an interpreter rather than a 
compiler, though compiled programs execute much faster than interpreted programs. (The reasons 
for this are beyond the scope of our present discussion.) In either case, however, the translation is 
carried out automatically within the computer. In fact, an inexperienced programmer may not even 
be aware that this procedure is taking place, since he or she typically sees only the original program, 
the input data and the resulting output data. 

Тһе compiler or interpreter is itself a computer program that accepts a high-level program (e.g., a 
BASIC program) as input data and generates a corresponding machine-language program as output. 

' Accordingly, the original high-level program is called the source program, and the resulting 
machine-language program is called the object program. Every computer must have its own compiler 
or interpreter for a given high-level language. It is this use of compilers and interpreters that allows 
us to achieve uniformity and machine independence with high-level languages such as BASIC. 


1.5 INTRODUCTION TO BASIC 


BASIC is an easy-to-use, “friendly” language whose instructions resemble elementary algebraic 
formulas, augmented by certain English keywords such as LET, READ, PRINT, GO ТО, IF, 
THEN, etc. Most other high-level languages have similar features though they are generally more 
complicated, which makes them more difficult to learn and to use. Thus, BASIC is particularly well 
suited for persons learning to program for the first time. In fact, many high schools and junior high 
schools now offer courses in BASIC programming. Some elementary schools even introduce the 
subject to select groups of students, 

The use of BASIC is by no means restricted, however, to elementary applications. It is often 
used for a variety of more advanced applications in such areas as business, science, engineering and 
mathematics. BASIC is also the principal language that is used with microcomputers. Hence BASIC 
can be used for many novel applications, for example, computer games requiring the use of graphics 
and sound generation, as well as more traditional applications such as personal finance and database 
management. We will see a representative sampling of these different types of programming 
applications in the examples that are included within this book. 


History of BASIC 


BASIC was originally developed at Dartmouth College by John Kemeny and Thomas Kurtz in 
the mid-1960s. Because of its simplicity, it was quickly adopted by several commercial timesharing 
services, which caused it to receive a broad exposure among thousands of computer users. Each of 
the major computer manufacturers, wishing to remain competitive, soon offered a version of BASIC 
for its own line of computers. Thus, BASIC rapidly became the most widely used timesharing 
language in the United States and Canada. 

As microcomputers began to evolve in the mid-1970s, microcomputer manufacturers adopted 
BASIC as their standard programming language. In fact, the convenience and simplicity of BASIC 
has been a major contributor to the rapid proliferation of these devices. The language is now 
provided automatically ' with the purchase of virtually every new microcomputer. Many micro- 
computers even include a BASIC interpreter as a part of their internal circuitry. 

In 1978 the American National Standards Institute (ANSI) standardized an essential subset of 
BASIC* in order to promote uniformity from one version of BASIC to another. Virtually all versions 


* American National Standard for Minimal BASIC, ANSI X3.60-1978, American National Standards Institute, New 
York, 1978. 
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of BASIC include these standard features, though most include numerous other features as well. 
Unfortunately, the 1978 standard was too small to provide effective standardization within the 
commercial marketplace. А more comprehensive standard is currently under development, though it 
redefines the language to such an extent that its practical influence appears questionable. 


Variations in BASIC 


Most versions of BASIC that are implemented on large computers or supported by commercial 
timesharing services are reasonably similar to one another. They all include the features described in 
the 1978 ANSI standard, plus a number of additional commonly used features. (Many also include 
certain special features that are unique to each particular version of the language.) Such im- 
plementations are often referred to as variants of “Dartmouth BASIC,” since they closely resemble 
the version of the language that was originally developed at Dartmouth College. Programs that are 
confined to the features of the original Dartmouth BASIC can usually be run on many different 
computers with little or no modification. 

In the microcomputer marketplace, the competition between computer manufacturers dis- 
courages any attempts at official standardization. Most versions of microcomputer BASIC are highly 
enhanced with special instructions customized for the hardware capabilities of their respective 
computers. Thus, there are special instructions for carrying out graphics, for generating sounds and 
for controlling various microcomputer peripherals, such as floppy-disk drives, printers, light pens and 
joysticks. There are, nonetheless, similarities in these instructions from one version of microcomputer 
BASIC to another. Thus, many BASIC programs that are written for one microcomputer can be 
modified to run on another without undue effort. 

This book describes all of the commonly used features of BASIC, beginning with the more 
elementary and traditional features of the language and progressing to more specialized material, 
including features that are available only on microcomputers. Specifically, the material in Chapters 2 
through 6 applies to practically all versions of BASIC. Many mainframe versions of the language also 
include the features described in Chapter 7 (Vectors and Matrices). The material in Chapter 8 (Data 
Files) applies to many versions of BASIC, though there is considerable,variation in the exact manner 
in which these features are implemented. Chapters 9 through 12 describe many of the special features 
and techniques that are available in microcomputer BASIC, with particular emphasis on Microsoft 
BASIC as implemented on the IBM Personal Computer. The book also contains five appendixes 
which summarize most of the material presented earlier. 

Тһе reader who has mastered this material should have little difficulty in utilizing the features 
that are available in any particular version of BASIC or in altering a program so that it will run under 


a different version of the language. 


Structure of a BASIC Program 

Each instruction in a BASIC program is written as a separate statement. Thus a complete BASIC 
program will be composed of a sequence of statements. These statements will be executed in the 
order in which they appear unless a deliberate “jump” (i.e., a transfer of control) is indicated. 

The following rules apply to the older, more traditional versions of BASIC. 


1. Every statement must appear on a separate line.* 

2. A statement cannot exceed one line in length (i.e., cannot be “continued” from one line to 
the next). 

3. Each statement must begin with a positive integer quantity known as a statement number (or 
line number). No two statements can have the same statement number. 


* On most timesharing terminals a line is equivalent to 80 characters, though some terminals allow 132 characters per 
line. 
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4. Successive statements must have increasing statement numbers. 

5. Each statement number must be followed by a BASIC keyword, which indicates the type of 
instruction that is to be carried out. , 

6. Blank spaces may be inserted wherever desired in order to improve the readability of the 
statement. 


It is also possible to include empty lines in a BASIC program. Every empty line must include at 
least one character, which may be a blank space. (If a line number is followed immediately by a 
carriage return, then that line will be deleted from the program. We will uiscuss this further in 
Chapter 3.) 

These six rules will be observed in the programming examples presented in the first eight chapters 
of this book. When we reach Chapter 9 we will see that these rules can be relaxed considerably in some 
versions of microcomputer BASIC. However, programs which adhere to these rules will still be valid. 


EXAMPLE 1.6 Area of a Circle 


Figure 1.5 presents a simple BASIC program to calculate the area of a circle whose radius is specified. The 
logic used to carry out the computation has already been discussed in Example 1.1. The program is so 
elementary, however, that its logical basis can be determined by simple inspection. 


10 INPUT R 
20 LET A=3.14159#R*2 
30 PRINT R,A 

40 END 

5 Fig. 1.5 


We see that the program consists of four statements, each of which appears on a separate line. Every 
statement has its own statement number (line number). These numbers increase successively from the beginning 
(top) to the end (bottom) of the program. The statements contain the BASIC keywords INPUT, LET, PRINT 
and END, respectively. 

The purpose of the first statement (INPUT R) is to enter a numerical value for the radius (R) from the 
terminal The second statement (LET A=3.14159*R12) causes the quantity 7R? to be evaluated. This quantity 
will then be represented by the letter А (for area). The third statement (PRINT R,A) causes the numerical 
values for R and А to be transmitted to the terminal, where they are printed or displayed. Finally, the last 
statement (END) is required in order to identify the end of the program. 

Notice the symbols that are used in line 20 to represent arithmetic operations. Multiplication is indicated by 
an asterisk (*), and an upward-pointing arrow (1) is used to raise a quantity to a power. [This latter operation is 
known as exponentiation. Some terminals use an upper caret (^) to indicate exponentiation, as seen in Fig. 1.5.] The 
remaining arithmetic operations, namely addition, subtraction and division, are represented in BASIC by a plus sign 
(+), a minus sign (—) and a slash (/), respectively. 


Some Advantages of BASIC 


1. BASIC is “friendly,” i.e., it is “people-oriented.” It is easy to learn and fun to use. Any 
well-organized person can learn to program in BASIC. An extensive background in mathema- 
tics is not necessary. 

2. BASIC is very flexible, allowing the programmer to develop new programs and to alter existing 
programs with relatively little effort. 


3. BASIC is well suited for use in an interactive environment. This includes dedicated 
microcomputer applications as well as large-computer timesharing applications. 

4. BASIC is universally available, on both large and small computers. It has become the standard 
programming language for most microcomputer applications. 

5. The commonly used features of BASIC are relatively standard, though there are some 


differences between one version of BASIC and another. Many BASIC programs сап be run оп a 
variety of different computers with little or no modification. 
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1.2 


1.3 


1.4 


1.5 


1.6 


1.10 


1.11 


1.12 


1.13 


1.14 


1.15 


1.16 


1.17 


1.18 


1.19 


1.20 


1.21 


1.22 


1.23 


Review Questions 


What is meant by a mainframe computer? Where can mainframes be found? What are they generally used 
for? 


What is a minicomputer? How do minicomputers differ from mainframes? 
What is a microcomputer? How do microcomputers differ from mainframes and minicomputers? 
Name two different types of data. 


What is meant by a computer program? What, in general, happens when a computer program is 
executed? 


What is a computer memory? What kinds of information are stored in a computer’s memory? 
What is a bit? What is a byte? What is the difference between a byte and a word of memory? 
What terms are used to describe the size of a computer's memory? What are some typical memory sizes? 


Name some typical auxiliary memory devices. How does this type of memory differ from the computer’s 
main memory? 


What time unit is used to express the speed with which elementary tasks are carried out by a computer? 


What is the difference between the batch mode and the interactive mode? What are their advantages and 
disadvantages? 


What is meant by timesharing? For what types of applications is timesharing best suited? 
What is machine language? How does machine language differ from high-level languages? 


Name some commonly used high-level languages. What are the advantages in the use of high-level 
languages? 


What is meant by compilation? What is meant by interpretation? How do these two processes differ? 
What is a source program? An object program? Why are these concepts important? 

What does the acronym “BASIC” stand for? 

What are the general characteristics of the BASIC language? 

Where was BASIC originally developed and by whom was it developed? 


To what extent do individual versions of BASIC differ from one another? Has the language been 
standardized? 


What is a BASIC statement? In what order must the statements appear in a BASIC program? 


Summarize six rules that apply to older, more traditional versions of the language. Do these rules also 
apply to most versions of microcomputer BASIC? 


In BASIC, what symbols are used to indicate addition, subtraction, multiplication and division? 
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124 What is meant by exponentiation? What symbol is used in BASIC to represent exponentiation? 


1.25 Summarize the principal advantages of BASIC. 


Solved Problems 


1.26 Several elementary BASIC programs are presented below. Explain the purpose of each 
program. 


(a) 10 INPUT L,w 
20 LET A=L*W 
30 PRINT L,W,A 
40 END 


To calculate the area of a rectangle whose length and width are given. 


(b) 10 INPUT A,B,C,D,E 
20 LET S=A+B+C+D+E 
30 PRINT A,B,C,D,E 
40 PRINT S 
50 END 


To calculate the sum of five numbers. Note that the five numbers will be printed on one line and the 
calculated sum on the next line. (Each PRINT statement begins on a new line.) 


(c) 10 INPUT A,B,C 
20 LET Х!=(-В+(В12-4*А*С).5)/(2*А) 
30 LET Х2=(-В-(В12-4*А*С)1.5)/(2*А) 
40 PRINT A,B,C,X1,X2 


50 END 
To calculate values for xı and xz from the formulas 
=b + V b!- 4ac 
хі 
à 2a 
=b- Vb2- 4ас 
X27 
: 2a 


where the values for a, b and c are specified. 


1.27 Write an elementary BASIC program for each of the situations described below. 
(a) Calculate the radius of a circle whose area is known (see Example 1.7). 
Since A = zr? we can solve for r, which yields 
r= VAIm 
Hence the desired program is 


10 INPUT A 

20 LET R-(A/3.141593)1.5 
30 PRINT A,R 

40 END 
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(b) Calculate the length of a rectangle whose area and width are known [see Problem 1.26(a)]. 


10 INPUT A,W 
20 LET L=A/W 
30 PRINT A,W,L 
40 END 


(c) Calculate the product of five given numbers [see Problem 1.26(b)]. 


10 INPUT A,B,C,D,E 
20 LET P= A*B*C*D*E 
30 PRINT A,B,C,D,E 
40 PRINT P 

50 END 


Supplementary Problems 


1.28 Several elementary BASIC programs are presented below. Explain the purpose of each program. 


(a) 10 INPUT B,H 
20 LET А=(В*Н)/2 
30 PRINT B,H,A 
40 END 


(b) 10 INPUT L,W 
20 LET C=2«(L+W) 
30 PRINT L,W,C 
40 END 


(c) 10 INPUT U,V 
20 LET W=U+V 
30 LET X-U-V 
40 LET Y=U*V 
50 LET Z-U/V 
60 PRINT U,V 
70 PRINT W,X,Y,Z 
80 END 

(d) 10 INPUT X 
20 LET Y=1+X+(X12)/2+(X13)/6 
30 PRINT X,Y 
40 END 


129 Write an elementary BASIC program for each of the situations described below. 


umference of a circle whose radius is given (see Example 1.7). 


(a) Calculate the circ 
se and height are given [see 


(b) Calculate the length of the hypotenuse of a right triangle whose ba: 
Problem 1.28(a)]. 
(c) Evaluate the formula 


u-v 


utv 


where u and v are given [see Problem 1.28(c)]. 
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(d) Evaluate the formula 
y = 100(1+ x + 2x2 + 3х3) 
where x is specified [see Problem 1.28(d)]. 


Shown below is a BASIC program to calculate the area and perimeter of a rectan 
the diagonal. Some of the statements are written incorrectly. Identify all errors. 


[CHAP. 1 


gle and the length of 


10 INPUT L,W 


20 LET A=L*W 30 LET P-2«(L-W) 
35 D-(L12-W12)t.5 

25 PRINT L,W,A,P,D 

40 END 


Chapter 2 
Getting Started with BASIC 


In this chapter we will examine several fundamental concepts of'the BASIC language, such as 
numbers, variables and formulas. Then we will consider the six most commonly used BASIC 
statements, which allow us to do input/output and data manipulation operations and jump to other 
parts of a program whenever we wish. After completing this chapter the reader will be able to write 
BASIC programs for a variety of problem situations. 


21 NUMBERS (CONSTANTS) 


Numerical quantities are referred to in BASIC as numbers (or constants). Numbers can be 
expressed two different ways: as integer quantities (whole numbers without a decimal point) or as 
decimal quantities (numbers that have a decimal point). The following rules apply to the writing of 
numbers: 


1. Commas cannot appear anywhere in a number. 

2. А number can be preceded by а + or — sign. (The number is understood to be positive if a 
sign does not appear.) 

3. A number can contain an exponent, if desired. Exponential notation is similar to scientific 
notation, except that the base 10 is replaced by the letter E. (Thus the quantity 1.2 x 10? 
could be written in BASIC as 12Е-3.) The exponent сап be either positive or negative but 


cannot have a decimal point. 
Most versions of BASIC allow a number to have as many as eight or nine significant figures. 


Typically the magnitude of a number can be as large as 10% and as small as 107%. (These 
values vary from one version of BASIC to another.) A value of zero is also permissible. 


EXAMPLE 2.1 
The numerical quantities below are expressed as valid BASIC numbers. Note that each quantity (each row) 
can be written in several different ways. 


0 +0 -0 

1 +1 0.1E+1 

—5280 —5.280Е+3 -.5280Е4 

+1492 1492 1.492E+3 

-.0000613 —6.13 Е-5 —613 Е-7 

3000000 3E6 3 E+6 
2.2 STRINGS 


A string is a sequence of characters (i.e., letters, numbers and certain special characters, such as 
+, —, /, *, =, $, -, etc.). Blank spaces may be included in a string but not quotation marks. The 
maximum number of characters that can be included in a string will vary from one version of BASIC 
to another. In some versions a string cannot exceed 15 characters, while others allow as many as 4095 


characters. 
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Strings are used to represent nonnumeric information—names, addresses, etc. They are also used 
to label numerical output data and print out textual messages (applications that we will see later in 
the book). 


EXAMPLE 2.2 
Here are several strings, 
SANTA CLAUS TYPE A VALUE FOR C: 
APOLLO-17 $19.95 
Хі- 3730425 


DO YOU WISH ТО TRY AGAIN? THE ANSWER IS 


Note that a sequence of integers, such as 3730425, does not represent а numerical quantity when written аз а string. 


2.3 VARIABLES 


А variable is a name that Tepresents a number or a string. In the older, more traditional versions 
of BASIC, a numeric variable must consist of a letter or a letter followed by an integer, and a String 
variable must be written as a letter followed by a dollar sign. Most versions of BASIC also allow a 
string variable to be written as a letter, followed by an integer, followed by a dollar sign. 


EXAMPLE 2.3 
Each of the following variables can Tepresent a numerical quantity: 
A K x СІ Х5 
Any of the following variables can represent a string: 
A$ K$ X$ C$ T$ 
In many versions of BASIC a string can also be Tepresented by any of the following variables: 
A2$ K9$ X0$ C1$ X5$ 


2.4 OPERATORS AND FORMULAS (EXPRESSIONS) 


In BASIC we use special symbols, called operators, to indicate the arithmetic operations of 
addition, subtraction, multiplication, division and exponentiation. These operators are 


Addition: + (plus sign) 

Subtraction: _ (minus sign) 
Multiplication: * (asterisk) 

Division: / (slash) 

Exponentiation: 1 (upward-pointing arrow) 


^ (some terminals use the upper caret) 


Тһе operators аге used to connect numbers and numerical variables 
expressions). 

Тһе indicated operations are carried out on the numeric terms іп а formula, resulting in a single 
numerical value. Hence а formula represents a Specific numerical quantit 
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EXAMPLE 2.4 
Several BASIC formulas are presented below: 

J+1 

A+B-C 

(2*X-3*Y)(U* V) 

3.141593*872 

В12-4*А*С 
Each formula represents a numerical quantity. Thus if the variables A, В and С represent the numerical 
quantities 2, 5 and 3, respectively, the formula А--В-С will represent the quantity 4. 


Strictly speaking, a formula can be composed of a single number or a single numeric variable as 
well as some combination of numbers, numeric variables and operators. It is important to under- 
stand, however, that a numeric variable must be assigned some numerical quantity before it can appear 
in a formula. Otherwise the formula could not be evaluated to yield a numerical value. 


2.5 HIERARCHY OF OPERATIONS 


Questions in meaning may arise when we have two or more operators in a formula. For example, 
does the formula 2*X-3*Y correspond to the algebraic term (2х)- (3y) or to 2(x — 3y)? Similarly, 
does А/В*С correspond to a/(bc) or to (a/b)c? These questions can easily be answered once we have 
become familiar with the hierarchy of operations and the order of execution within a given hierarchical 


group. 
The hierarchy of operations is 


1. Exponentiation. All exponentiation operations are performed first. 


2. Multiplication and division. These operations аге carried out after all exponentiation opera- 
tions have been performed. Multiplication does not necessarily precede division. 


3. Addition and subtraction. These operations are the last to be carried out. Addition does not 
necessarily precede subtraction. 


Within a given hierarchical group the operations are carried out from left to right. 


EXAMPLE 2.5 
The formula 
А/В*С 
is equivalent to the mathematical expression (a/b)c, since the operations are carried out from left to right. 
Similarly, the formula 
B12-4*A*C 


is equivalent to the mathematical expression b?— (дас). In this case the quantity B12 is formed initially, followed 
by the product 4«A*C [first 4*А, then (4*A)*C]. The subtraction is performed last, resulting in the quantity 


(В12)-(4жАжС). 


2.6 USE ОЕ PARENTHESES 
There аге many situations іп which we will want to alter the normal hierarchy of operations in a 


formula. This is easily accomplished by inserting pairs of parentheses at the proper places within the 
formula. The operations within the innermost pairs of parentheses will then be performed first, 
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followed by the operations within the second innérmost pairs, and so on. Within a given pair of 
parentheses the natural hierarchy of operations will apply unless specifically altered by other pairs of 


parentheses embedded inside the given pair. р 1 
We must remember always to use pairs of parentheses. A careless imbalance of right and left 


parentheses is a common error. 


EXAMPLE 2.6 
Suppose we want to evaluate the term 
[2(a + b cy] e*» 
A BASIC formula that corresponds to this algebraic term is 
(2*(А+В)!2+(3*С)!2)1 (M/(N+1)) 
If there is some uncertainty in the order in which the operations are carried out, we can introduce additional 
pairs of parentheses, giving 
((2*((A--B)12))*-(8*C)12))t (M/(N+1)) 


Both formulas are correct. The first formula may be preferable, however, since it is less cluttered with 
parentheses and is therefore easier to read. 


27 SPECIAL RULES CONCERNING FORMULAS 


Special problems can arise if a formula is not correctly written. They can be avoided by applying 
these rules. 


l. Preceding a variable by a minus sign is equivalent to multiplication by —1. 


EXAMPLE 2.7 
The formula 
-ХІМ 


is equivalent to —(XtN) or —1*(Xt N), since exponentiation has precedence over multiplication. Hence 
if X and N are assigned values of 3 and 2, respectively, then —XTN will yield a value of —9. 


2. Except for the condition just described, operations cannot be implied. 


EXAMPLE 2.8 
The algebraic expression 2(x; + 3x2) must be written in BASIC as 
2*(Х1+3*Х2) 


with the multiplication operators shown explicitly. The formulas 2(X1+3*X2) апа 2*(X1+3X2) аге 
incorrect. 


3. A negative quantity can be raised to a power only if the exponent is an integer. (Do not 
confuse the exponent in an exponentiation formula with the exponent that is a part of a 
decimal number.) 

To understand this restriction, we must see how exponentiation is carried out. If the 
exponent is an integer quantity, then the quantity to be exponentiated is multiplied by itself 
an appropriate number of times. 

On the other hand, suppose the exponent is a decimal quantity. The procedure used with 
a decimal exponent is to compute the logarithm of the quantity being exponentiated, 
multiply this logarithm by the exponent and then compute the antilog. Since the logarithm of 
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a negative number is not defined, we see that the operation is invalid if the quantity being 
exponentiated is negative. 


EXAMPLE 2.9 


Consider the formula 
(С1+С2)13 
Тһе quantity represented by (С1+С2) is multiplied by itself twice, thus forming the cubic expression. 


Notice that it does not matter whether the quantity (C1+C2) is positive or negative. 
However, the formula 


(B12-4«A*C)t.5 
will be valid only if Bt2—4*A*C represents a positive quantity. 


Finally, consider what happens when either A or N in the expression 
ATN 
is zero. If N has a value of zero, then АТМ will be assigned a value of 1, regardless of the 
value of A. If A has a value of zero and N is nonzero, however, АТМ will be evaluated as 
zero. 


4. Numerical operations cannot be performed on strings or string variables. However, some 
versions of BASIC allow strings and string variables to be concatenated (i.e., combined, one 
behind the other). 


EXAMPLE 2.10 
Suppose that the string variables X$ and Y$ have been assigned the following values: 
X$=“TEN” 
Y$- "THOUSAND" 
The formula 
X$+Y$+" DOLLARS" 
is not a valid formula, since it is not meaningful to perform numerical operations on strings. In some 
versions of BASIC, however, the expression 
X$+“ ”+Y$+“ DOLLARS” 
will cause the three strings to be concatenated, resulting in the single string 
TEN THOUSAND DOLLARS 


2.8 ASSIGNING VALUES—THE LET ST 'ATEMENT 


Тһе LET statement is used to assign а numerical or a string value to a variable. We can define a 
particular variable in a program by establishing its value in this manner. 

A LET statement is composed of а statement number, followed by the keyword LET, followed 
by an assignment term that resembles a mathematical equation. The assignment term must consist of 


a variable, an equal sign and a formula, as shown in the examples below. 


EXAMPLE 2.11 
10 LET X=12.5 
20 LET СІ-ЕЗ 


30 LET A=3.141593*R12 
40 LET N$=“NAME” 
50 LET T$=N$ 
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In each of these statements the value of the term on the right of the equal sign is assigned to the variable on the 
left. 


Note that the variable to the left of the equal sign and the term to the right must be of the same 
type (either numeric or string). In other words, a numerical value cannot be assigned to a string 
variable, and vice versa. Also, note that a string must be enclosed in quotation marks if it appears in 
a LET statement. 

It is important to understand the difference between the assignment term that appears in the 
LET statement and an algebraic equation. Many assignment terms look like algebraic equations. On 
the other hand, there are certain legitimate assignment terms that would make no sense if viewed as 
algebraic equations. s 


EXAMPLE 2.12 
Consider the following LET statement, which is both correct and meaningful: 
5 LET J=J+1 


The assignment term J=J+1 obviously does not correspond to an algebraic equation, since the equation j = / + 1 
makes по sense. What we аге doing here is 16 increase the value of the numeric variable J by one unit. Thus the 
assignment term is entirely logical if we interpret it as follows: add one to the value represented by the variable 
J, and assign this new value to J. Note that this new value of J will replace the old value. 

We will see that LET statements of this type are used quite often in BASIC, 


Some versions of BASIC allow greater flexibility in writing LET statements than others. For 
example, in some versions of BASIC it is possible to assign the same value to two or more variables 


in a single LET statement. Moreover, the keyword LET can be omitted in certain versions of 
BASIC. 


EXAMPLE 2.13 


The following LET statements would be permitted in some versions of BASIC: 
10 LET A=B=C=5,089 
20 A=L*W 
30 X1=X2=(A+B)/(C+D) 
40 LET A$=K$=“TERMINATE” 


Notice that the first, third and fourth statements involve multiple assignments and that the keyword LET has 
been omitted from the second and third statements. 


2.9 READING INPUT—THE INPUT STATEMENT 


The INPUT statement is used to enter numerical or string data into the computer during program 
execution. The statement consists of a statement number, the keyword INPUT and a list of variables, 
Both numeric and string variables can be included in the list. The variables must be separated by 
commas. 


EXAMPLE 2.14 


5 INPUT A,B,C 
10 INPUT N$,M$,X0,F5 
15 INPUT P(I,O(D,T$()) 


The variables shown in the last statement are called subscripted variables. We will discuss subscripted variables in 
Chapter 5. 


3 When an INPUT statement is encountered during program execution, a question mark (2) is 
printed on the console, indicating a request for data. Normally the question mark appears at the start 
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of a new line. Further execution of the program is suspended until the requested data have been 
supplied. 

Опсе the question mark appears, the programmer (or program user) must supply the requested 
information by typing the appropriate data into the console, followed by a carriage return. The data 
will then be transmitted to the computer's memory, and program execution will resume. Thus the 
INPUT statement can be particularly useful in conversational-mode programming. 

The following rules must be observed when entering the required input data: 


1. The data items must correspond in number and in type to the variables listed in the INPUT 
statement (i.e., numbers must be supplied for numeric variables, strings for string variables). 
Extra data items will be ignored. 


2. The data items must be separated by commas. 
3. The data items must consist of numbers and strings. Formulas are not permitted. 


4. Strings containing commas or beginning with blank spaces must be enclosed in quotation 
marks. Other strings may be enclosed in quotation marks if desired. 


EXAMPLE 2.15 
Suppose that the statement 
60 INPUT X,Y,C$ 


is encountered during execution of a BASIC program. This will cause a question mark to be printed at the start 
of a new line on the console. Further program execution will be temporarily suspended. 

Upon seeing the question mark, the user proceeds to enter the required input data. Suppose the appropriate 
values for X, Y and C$ are 5, -1.2х 1072 and NOVEMBER 27, 1937. The line of input would then appear 


as 
2 5,-1.2Е-3,“МОУЕМВЕК 27, 1937" 


АНег the data һауе been typed, the user depresses the carriage return, causing the data to be transmitted to 
the computer's memory. Execution of the remainder of the program then proceeds in the normal manner. 


Тһе INPUT statement is quite useful for elementary programs not requiring large quantities of 
input data. The entering of data via an INPUT statement, however, is relatively time-consuming, and 


data entered in this manner cannot be stored for subsequent use. (In most BASIC systems a program 
can be stored indefinitely and rerun whenever desired.) We will see another method for defining data 


in Chapter 5. 


2.10 PRINTING OUTPUT—THE PRINT STATEMENT 


The PRINT statement is used to transmit numerical or string output data from the computer. The 
statement consists of a statement number, the keyword PRINT and a list of output items. The output 
items can be numbers, formulas or strings. Successive items must be separated by either commas or 


semicolons. 


EXAMPLE 2.16 
Several typical PRINT statements are shown below. 


100 PRINT А,В,С 
110 PRINT "X-";X,"Y-";Y = 
120 PRINT “NAME:”;NS,“ADDRESS: А5 


130 РЕІМТ 
140 PRINT K;C$(K);5*X012/2;U()+V(I);P$ $ C.E.R.¥ , West Benge 
Ве. 185.92... 


acc. 4.2474... 


22 GETTING STARTED WITH BASIC [CHAP. 2 


The variables C$(K), U(I) and V(I) in the last statement are called subscripted variables. We will discuss 
subscripted variables in Chapter 5. 


The following rules must be followed when writing a PRINT statement. 


Line Spacing 


1. Each PRINT statement begins a new line of output (an exception is discussed in rules 5 and 6 
below). However, two or more lines of output will be generated by a single PRINT statement 
if the list of data items has a large number of entries. 


EXAMPLE 2.17 
Тһе PRINT statement 
50 PRINT C1,C2,C3,C4,C5,C6,C7,C8 


will cause the values of C1 through C5 to be printed on one line and the values of C6 through C8 to be 
printed on the second line. Suppose, for example, that C1 through C8 represent the following values: 


С1=3 
С2=-12 
C3=6.5 
C4=5000 
C5=0 
C6=0.0047 
C7=-8 
С8-7.2Е-15 


Тһе output would appear as 


s -12 5.5 5000 о 
0.0047 -8 7.20000Е-15 


2. Ifa PRINT statement does not contain апу data items, then a blank line will appear. This is а 
useful way to control the vertical spacing of output data. 


EXAMPLE 2.18¢ 


The PRINT statements 


40 PRINT C1,C2,C3,C4 
50 PRINT 
60 PRINT С5,С6,С7,С8 


will cause the values of C1 through C4 to be printed on one line and C5 through C8 to be printed on 
another line, with a blank line between them. 


If C1 through C8 have the same values as indicated in Example 2.17, then the output result from 
the above three print statements will appear as 


$ -12 6.5 5000 
0 0.0047 -в 7.20000Е-15 
Significant Figureš 


3. Numerical output quantities will appear as follows: 
In most versions of BASIC, an integer quantity that contains eight or fewer digits will be 
printed as an integer number. If an integer quantity exceeds eight digits, it will be rounded to 
Six significant figures and printed as a decimal number with an exponent. 
A decimal quantity will be printed as a decimal number. If the quantity contains more 
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Strings 
4. 


than six digits (including any leading zeros to the right of the decimal point), it will be 
rounded to six digits. An exponent will be shown if the magnitude of the number exceeds 
999999 or is less than 0.1 and contains more than six significant figures. 


EXAMPLE 2.19 


Suppose a BASIC program contains the variables A, B, C, D, E and F, which have been assigned 
the following values: 


A=1234567 
B=123456789 
С--0.001234 
D=0.000012345 
E=-1234.5 
F=1234567.89 


Тһе statements 


100 PRINT А,В,С 
110 PRINT D,E,F 


would generate the following two lines of output: 


1254587 1.25457Е%8 -0.001254 
1.25450Е-5 -1234.5 1.23457E*6 


Strings must be enclosed in quotation marks. (See Example 2.20, below.) 


Spacing of Output Items Within a Line 


5. 


If the data items in the output list are separated by commas, then each line of output will be 
divided into five zones of equal length, and one output value will be printed in each zone. 


EXAMPLE 2.20 
A BASIC program contains the statement 
65 PRINT “NAME”,N$,X,.5*(C1+C2) 
If the variables have been assigned the values 


N$=CINNAMON C1=7 
X=39 С2-11 


then the above PRINT statement will generate the following line of output: 


NAME CINNAMON 39 9 
Other illustrations of the use of commas in a PRINT statement are shown in Examples 2.17, 2.18 
and 2.19. 
If a comma follows the last item in the data list, then the next output quantity (.е., the 


first output quantity in a subsequent PRINT statement) will be printed on the same line 
providing sufficient space is available. (Note that this produces an exception to rule 1 on 


page 22.) 


EXAMPLE 2.21 


The statements 


100 PRINT A,B,C, 
110. PRINT D,E,F 
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will cause the values of А, B, C, D and E to be printed on one line, followed by the value of F on the 
next line. 

If A, B, C, D, E and F have been assigned the same numerical values as in Example 2.19, the 
output resulting from the above PRINT statements will appear as follows: 


1254567 1.23457E*8 70.001234 1.23450E-5 -1234.5 
1.23457E*6 


(Compare with the results in Example 2.19.) 

As many as four commas can appear consecutively if desired. The effect of each comma is 
to move to the start of the next zone. Thus it is possible to print widely spaced data in this 
manner. 

EXAMPLE 2.22 
A BASIC program contains the statements 


120 PRINT A,B,C,D,E 
130 PRINT F,,,,G 


If the variables have been assigned the following values 


A=1 C-3 Е-5 G=7 
B=2 D-4 F=6 


then the above statements will generate the following lines of output: 
1 2 s 4 5 
6 7 


If semicolons are used rather than commas to separate numerical data items in an output list, 
then the output values will. be spaced more closely together. The particular spacing will 
depend on the number of digits or characters in each output item. By using semicolons in this 
manner it is possible to print more than five output quantities on each line. 
EXAMPLE 2.23 

A BASIC program contains the statement 

100 PRINT А1;А2;А3;А4;А5;А6;А7;А8 

If the variables һауе been assigned the following values 


А1=Н А5=15 
А2=12 Аб=16 
АЗ=13 А7=17 
А4=14 А8-18 


then the above PRINT statement will generate the following line of output 
11 12 13 14 15 16 17 18 


If a semicolon follows a string or a string variable in an output list, then the string will be 
printed without any trailing spaces and the next output item will be printed immediately 
beyond the string. 

EXAMPLE 2.24 
A BASIC program contains the statement 
200 PRINT “X=";X,“Y=";Y 
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If the variables are assigned the values X=12 and У=-5, then the above statement will generate the 
following line of output: 


X= 12 Ү=-5 


Іп тапу BASIC programs ап INPUT statement is preceded by а PRINT statement that 
contains a string. The purpose of the PRINT statement is to produce a prompt message 
requesting the required input data. If the string is followed by a semicolon, then the question 
mark generated by the INPUT statement will appear at the end of the printed message. 


EXAMPLE 2.25 


A BASIC program has been written to compute the area and circumference of a circle. The first 
step in executing the program is to read in a value of the radius. Hence the program will contain the 
statements 


10 PRINT “RADIUS=”; 
20 INPUT R 


These two statements will cause the following line of output to be printed: 
RADIUS=? 
The user then enters a value for R (the radius), as shown in Example 1.4. 
Finally, it should be understood that the effect of placing a semicolon after the last entry 
in the data list is the same as the placement of a comma in this position (i.e., the next printed 


quantity will appear on the same line). We have just seen an illustration of this in Example 
2,25: 


2.11 THE END STATEMENT 


The END statement indicates the end of a BASIC program. The statement consists simply of a 
statement number followed by the keyword END. This statement is required in the older, more 
traditional versions of BASIC (it is optional in some of the newer versions). If it is required, it must 
be the last statement in the program, and it must have the highest statement number. 

One use of the END statement is shown in Example 1.6. For another such illustration, see 


Example 2.26. 


2.12 WRITING COMPLETE BASIC PROGRAMS 


By now we have learned how to read data into the computer, perform arithmetic calculations and 
write out the results. Hence we can carry out all of the major steps in a complete (though simple) 
BASIC program. 

In Chapter 3, we will discuss the mechanics of entering a program into the computer, editing the 
program and executing the program. For now we will be concerned only with writing simple 
programs. Example 2.26 illustrates such a program. Readers are urged to write a few other programs 
of this nature on their own. (Several suggestions are given at the end of this chapter.) 


EXAMPLE 2.26 Roots of a Quadratic Equation 


We wish to calculate the roots of a quadratic equation, using the well-known formulas 


—-b* Vb —4ac У 
om 2a ee 2a 


Let us assume that the values of a, b and c are such that b2— Дас will always be positive. Therefore we need not 
worry about calculating the square root of a negative number. 
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TThe steps to be followed are these: 
1. Read numerical values for a, b and c. 
2. Calculate a value for Vb? — 4ac. 
3. Calculate values for хі and x2, using the above formulas. 
4. Print the values for a, b, c, хі and x;. 
5. Stop. 
corre: 


A sponding flowchart is shown in Fig. 2.1. 


X1=(—B+R)/(2A) 
X2-(-B-R)/(2A) 
PRINT 
A,B,CX1,X2 


Fig. 2.1 


If we make use of the material presented earlier in this chapter, it is quite simple to write a complete 
BASIC program to carry out the calculations. Step 1 can be implemented by means of a PRINT and an INPUT 
statement, and Steps 2 and 3 can be accompanied by LET statements. PRINT statements will be required for 
Step 4 and an END statement for Step 5. The desired BASIC program is shown in Fig. 2.2. Note that the input 
data are underlined. 


10 PRINT "ENTER VALUES FOR A, B AND C" 
20 INPUT А,В,С 

ЗО LET R=(B*2-4#A#C)*.5 

40 LET X1=(-B+R)/(2#A) 

SO LET X2-(-B-R)/(2«4) 

60 PRINT 

70 PRINT "А=";А, "Ва"; В, "С=",;С 

BO PRINT "X1="5X1,"X2="3x2 


90 END 

жым 

ENTER VALUES FOR А, В AND С 
22,5,5 

А= 2 В= 5 С- $ 
Хі=-1 Х2--1.5 


Fig. 2.2 


At the bottom of Fig. 2.2 is the Output generated by the program for a = 2, b = 5 and c = 3. (We will discuss 
тат бог executing а BASIC Program іп Chapter 3.) We see that хі has а value of —1, and x2 a value of 
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2.13 PROGRAM COMMENTS—THE КЕМ STATEMENT 


Тһе most common way to introduce remarks (comments) into a BASIC program is to make use 
of the REM (ЕЕМАКК) statement. This statement consists of a statement number followed by the 
keyword REM and a textual message. REM statements can be inserted anywhere in a BASIC 
program. 


EXAMPLE 2.27 


A typical REM statement is shown below: 
5 REM PROGRAM TO CALCULATE THE ROOTS OF А QUADRATIC EQUATION 
This statement would provide an appropriate heading for the program presented in Example 2.26. 


REM statements do not provide any executable instructions for the computer. They are, 
however, listed with all the other statements in a BASIC program, in correct sequential order. Thus 
they offer the programmer a convenient means to document a program (i.e., to provide a program 
heading, to identify important variables and to distinguish the major logical segments of a program). 
We will see numerous illustrations of the use of REM statements in subsequent examples. 

Surrounding the REM statement with blank lines causes the remarks of the REM statement to 
stand out clearly from the rest of the program, thus adding to the clarity of the program 
documentation. 

Sometimes it is desirable to add a comment explaining a certain key statement in a BASIC 
program. This can, of course, be accomplished with a REM statement. An even more desirable 
method, however, might be to place the comment on the same line as the statement. A comment of 
this type must be preceded by an apostrophe in order to distinguish it from the end of the statement. 
Such a comment cannot exceed the remaining length of the line. 


EXAMPLE 2.28 


Add the comments CALCULATE FIRST ROOT and CALCULATE SECOND ROOT to the fourth and 


fifth statements, respectively, of the program shown in Fig. 2.2. 
The fourth and fifth statements will appear as 


40 ТЕТ X1-(-B*R)/C*A) ‘CALCULATE FIRST ROOT 
50 LET Х2=(-В-В)/(2*А) ‘CALCULATE SECOND ROOT 


2.14 TRANSFERRING CONTROL—THE GO TO STATEMENT ° 


Normally the statements in a BASIC program аге executed in the same order as they appear, 
one after another. Sometimes, however, it is necessary to “jump” to some other part of the program, 
thus altering the normal sequence of execution. This can be accomplished by means of the GO TO 
statement. We usually refer to such a jump as an unconditional branching operation, or as a transfer 
of control. Hence the GO ТО statement allows us to transfer control to any other statement in a 


BASIC program (including a REM statement). 
Тһе GO TO statement consists of а statement number, followed by the keywords GO TO and 


the number of the statement to which control will be transferred. 


EXAMPLE 2.29 
A BASIC program contains the following GO TO statement 
100 GO TO 10 
Тһив the computer is instructed to execute statement number 10 next. 
We will consider branching operations in much more detail in Chapter 4. For now we will restrict 


our attention to one simple but important application of the GO TO statement. 
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2.15 REPETITIOUS PROGRAM EXECUTION 


Many situations arise that require the use of a BASIC program to process several sets of data, 
one after the other. This can easily be accomplished by ending the program with a transfer of control 
back to the “read input” statements, thus causing successive sets of input data to be read into the 
computer and then processed. (Note that we are referring to the logical ending of the program, not 
the physical ending. The last physical statement in the program must still be the END statement.) 
This procedure continues until all of the input data have been processed, at which time the user 
terminates the connection to the computer. 

The transfer of control is usually carried out by means of a GO TO statement. Example 2.30 
illustrates. 


EXAMPLE 2.30 Roots of a Quadratic Equation 


Let us modify the BASIC program presented in Example 2.26 so that we can process several sets of input 
data (i.e., several different radii) sequentially. If we examine the program shown in Fig. 2.2 we see that the 
modification can easily be carried out if we add a “GO TO 10” statement immediately before the END 
statement. 

The modified program is shown in Fig. 2.3. Note that we have added an empty PRINT statement and a GO 
TO 10 statement near the end of the program. The purpose of the empty PRINT statement is to separate the 
output data from the successive input messages. Also, note that we have added a REM statement at the 
beginning of the program and that comments have been added to lines 40 and 50. 

Notice that the information supplied by the user has been underlined. 


S REM PROGRAM TO CALCULATE THE ROOTS OF A QUADRATIC EQUATION 
10 PRINT "ENTER VALUES FOR A, B AND С" 

20 INPUT A,B,C 

30 LET В=(В^2-4*А*С)^.5 


40 LET X1-(-B*R)/(2*0) “CALCULATE FIRST ROOT 
50 LET X2-(-B-R) /(2#A) “CALCULATE SECOND ROOT 
60 PRINT 


70 PRINT "A="5A,"B="3B,"C="5C 
80 PRINT "Xiz";X1,"X2-"; X2 
90 PRINT 

100 GOTO 10 

110 END 


>RUN 


ENTER VALUES FOR A, B AND C 
?2,6,1 


A= 2 B= 6 С= 1 
X1--0.177124 Х2=-2.82288 


ENTER VALUES FOR А, B AND C 


?343,0 
A= 3 B= 3 С= о 
X1=-9.93411E-9 Х2=-1. 
ENTER VALUES FOR A, B AND C 
21371 

А= 1 B= 3 С= 1 


X1=-0.381966 X2=-2.61803 
Fig. 2.3 
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At the bottom of Fig. 2.3 we see the output resulting from three different sets of values for a, b and c. 
(Notice that the second value for x1 is calculated as —9.9 x 10"? rather than zero, which is the exact answer.) The 
connection to the computer was terminated after processing the third set of data, though the procedure could 
have been continued as long as we had wished. 


2.16 CLOSING REMARKS 


By now we have learned enough about BASIC so that readers can organize and write complete, 
though elementary, programs of their own. Later chapters will show how to write programs that are more 
interesting, challenging and sophisticated. 


Review Questions 


2.1 Мате two different ways that numbers (constants) can be written in BASIC. 


2.2 Summarize the grammatical rules for writing numbers. 


2.3 Present a detailed comparison between a number written in scientific notation and a number written in 
BASIC as a decimal quantity with an exponent. 


2.4 What is a string? What are strings used for? 
2.5 Summarize the grammatical rules for writing numeric and string variables. 


2.6 What are the arithmetic operators used in BASIC? What is their natural hierarchy? In what order are 
operations carried out within a hierarchical group? 


2.7 What is a formula (expression) in BASIC? What does a formula represent? 


2.8 How can the natural hierarchy of operations be altered in a formula? 


2.9 Cite a particular problem that can arise in exponentiation operations. Present the reason for the 


problem, and describe how the problem can be avoided. 
2.10 What is the purpose of the LET statement? 


2.1 Summarize the grammatical rules for writing a LET statement. 


2.12 Discuss the similarities and differences between a LET statement and an algebraic equation. 


2.13 Іп what ways are the rules for writing a LET statement relaxed in some versions of BASIC? 


2.14 What is the purpose of the INPUT statement? 


2.15 What happens when an INPUT statement is encountered during execution of a BASIC program? 


2.16 Summarize the grammatical rules for writing an INPUT statement. 


247 Cite two disadvantages in the use of INPUT statements for entering data into the computer. 


2.19 


БЕБВЕБ b 


Ë 
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What is the purpose of the PRINT statement? 


Summarize the grammatical rules that apply to each of the following aspects of the PRINT statement: 


(a) The generation and spacing of lines of output. 
(b) The appearance of numerical output quantities and the maximum number of significant figures. 


(c) The treatment of strings. 
(4) Тһе spacing of numerical quantities and strings within a line of output. 


In what way can a PRINT statement be used in conjunction with an INPUT statement when reading 
data into the computer? 


What is the purpose of the END statement? What are the rules associated with its use? 

What is the purpose of the REM statement? What rules govern its use? 

What is meant by program documentation? How can program documentation be carried out in BASIC? 
What is the purpose of the GO TO statement? How is it written? 


Name one statement that must be present in every BASIC program when using an older, more 
traditional version of BASIC. Where will this statement appear? What can be said about its statement 
number? N 


Exactly what advantage is there in writing à BASIC program that can be executed repetitiously? Is a 
significant amount of programming effort required to write a program in this manner? 


Solved Problems 


Express each of the following quantities as a BASIC number. 


Quantity BASIC Number 

7,350 7350 or 7.35E+3 

zi -12 

106 1000000 or 1E+6 
—2,053.18 x 10° -2053180 ог —2.05318E+6 
0.00008291 0.00008291 or 8.291Е-5 
9.563 x 102 9.563E+12 

1/6 0.16666667 


2.28 Each of the following BASIC numbers is written incorrectly. Identify the errors. 
. 


Number Error 

7,104 comma not allowed 

—+4920 double sign not allowed 
2.665E+42 exponent is too large in magnitude 


0.333333333333 too many significant figures 
4.63E-0.8, exponent cannot contain a decimal point 
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229 Each of the following items represents a BASIC string. Identify which, if any, are written 


incorrectly. 


String 

TWENTY-SEVEN 

2+5=7 

ENTER ALL INPUT DATA 
75.50 

SYMBOL IS “X” 


230 Each of the following represents a n 
incorrectly. 


Variable Error 


Error 

correct 

correct 

too long for some versions of BASIC 

correct 

quotation marks are not allowed within the string 


umeric variable. Identify which, if any, are written 


XR second character, if present, must be an integer 

Q correct 

C23 too many characters 

8С first character must be a letter; second character, 
if present, must be an integer 

BIGC too many characters 

J8 correct 

A$ second character, if present, must be an integer 


231 Each of the following represents a string variable. Id 


entify, which, if any, are written 


incorrectly. 

Variable Error 

N$ correct 

C dollar sign is missing 

Z$3 last character must be a dollar sign; some versions 
of BASIC allow only two characters 

Z3$ may be correct, though some versions of BASIC 
allow only two characters 

E$ correct 


232 Write a BASIC formula that correspon 


Algebraic Expression 
3x+5 

ізі-2 

х?+ ر‎ 

(к+уў 

alb + cld 

(u+ v) 

an“ 


ds to each of the following algebraic expressions. 


BASIC Formula 


3*X+5 

1+Ј-2 

х12+Ү12 

(K+Y)t2 

A/B+C/D or (A/B)+(C/D) 
(U+V)t(K-1) 

(4*T)î .16666667 ог (4*T)t (1/6) 
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2.33 Write a LET statement for each of the following situations. 


(a) 


(5) 


(с) 


(4) 


(f) 


(g) 


(h) 


Assign a value of 2.54 to the variable C. 
10 LET C=2.54 


Assign a value of 12 to the variable X. 
20 LET X=12 


Assign the value represented by the variable N to the variable N1. 
30 LET N1=N 


Assign the string JANUARY 31 to the variable A$. 
40 LET A$=“JANUARY 31” 


Assign the string represented by the variable S$ to the variable T$. 
50 LET T$=S$ 


Assign the value represented by the formula (A12+B12+C12) to the variable F. 
60 LET F=A12+B12+C12 


Increase the value assigned to the variable C7 by 0.01. 
70 LET C7=C7+.01 


Assign the value represented by the formula (I+J) to the variable I. 
80 LET I=I+J 


234 Write a multiple LET statement for each of the following situations, 


(a) 


Assign a value of —37.5 to the variables C1, C2 and C3. 
10 LET C1-C2-C3--37.5 


(b) Assign the string *****ERROR=***** to the variables P5$ and P7$. 


20 LET Р5$=Р7$= ERROR (cec? 


(c) Assign the value represented by the formula (F-J)/K to the variables M and N. 


Note that multiple LET statements are not available in 
of BASIC, the keyword LET can be omitted, i.e. 


30 LET M-N-(I-J)/K 


all versions of BASIC. In some versions 


30 M-N-(I-J)/K 
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2.35 


2.36 


237 Write an appropriate statement, or set of statem 


Write a LET statement that corresponds to each of the following algebraic equations. 
(а) z=(x/y)+3 
10 LET Z=X/Y+3 


(b) z= x/(y+3) 
20 LET Z=X/(Y+3) 


(с) w= (u+ w)/(s + 1) 
30 LET W=(U+V)/(S+T) 


2ab _ t ° 
c+1 3(p+4) 
40 LET F=(2*A*B/(C+1)—T/(3*(P+Q)))t .33333333 


(a) у=] 


Tc 6.8(a + bYJc — 7.2al V b + c 
A (a * c)" 
50 LET В= (6.8*(A+B)t2/C—7.2*A/(B+C)t 5)/(A+C)t (1/N) 


Two complicated algebraic equations are shown below. Replace each equation with several 
simple equations and write the corresponding LET statements. 


Өт Б T 3l 


Yn 


п Бай 10 LET Ti=2*A*B/(C+1) 
c+1 

pacem 20 LET T2=R/(7#(P+Q)) 
7(р + 4) 

1= (5 ^ 30 LET T-(TI- T2)! (1/N) 


iy [6.8(a — b/c — 7.2al Vb + с] 

(b) T= [(c = ay" + »"]^ 
fı = 68(a — blc 10 LET F1-6.8«(A- B)12/C 
Һ-72а/У5%с 20 LET F2-72*A/(B4C)t.5 
jp = (с-а)" +b" 30 LET F3=(C-A)IM+BIN 


f-(i- fy? 40 LET F-(FI-F2)t (1/7)F31 (1/3) or 
40 LET F-(F1—F2)1.14285714/F31 .33333333 


ents, for each situation described below. 


(a) Enter numerical values for X1, X2 and X3 and a string value of X$. All of the data are to 


be typed on one line. 
10 INPUT X1,X2,X3,X$ 


(b) 


(a) 


(e) 


(/) 


(в) 


(һ) 


G) 


G) 


(k) 
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Enter numerical values for X1, X2 and X3 on one line and a string value for X$ on the 
next line. 


10 INPUT X1,X2,X3 
15 INPUT X$ 


Enter numerical values for X1 and X2 on one line and a numerical value for X3, followed by 
a string value for X$, on the next line. 


10 INPUT X1,X2 
15 INPUT X3,X$ 


Print the values of C1, C2, C3, C4 and C5 all on one line. 

50 PRINT C1,C2,C3,C4,C5 
Print the values of A1, A2 and A3 on one line and the values of B1, B2 and B3 on another 
line, with a blank line separating them. 


60 PRINT A1,A2,A3 
65 PRINT 
70 PRINT B1,B2,B3 


Print the values of A1, A2, A3, B1, B2 and B3 all on one line, as closely spaced as 
possible. 

50 PRINT A1;A2;A3;B1;B2;B3 
Print the values of X, Y and Z on one line. Precede each numerical value with an 
appropriate label. 

100 PRINT “X=";X,“Y=";Y,“Z=";Z 
or 

100 PRINT "X-';X;"Y-";Y;"z-"z 
Print the values of N$ and N next to one another, followed by the value of the formula 
At2+Bt2. 

120 PRINT №;№;А12+В12 
or 


120 PRINT N$;N,At2+Bt2 


Print the strings LEFT and RIGHT near the left and right edges. 
150 PRINT “LEFT”, "RIGHT" 


Print the message ROOTS OF SIMULTANEOUS EQUATIONS on one line, centered 
as closely as possible. 


200 PRINT, “ROOTS OF SIMULTANEOUS EQUATIONS” 


Print a message indicating a request for the numerical value of C, then enter a numerical 
value for C. 


5 PRINT “C=”; 
10 INPUT C 
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238 Show how the input data will appear in each of the following situations. 


2.39 


(a) 


(b) 


(c) 


10 INPUT X1,X2,X3,X$ 


where X1=4.83x 10? X3=941.55 
Х2=-537 X$=BUCS 


74.83Е-3,-537,941.55,В0С5 
ог 


7.00483,-537,941.55,В0С5 

10 INPUT X$,X1 

20 INPUT X2,X3 

where the variables have the same values as in part (a). 
?BUCSA.83E-3 
2-537,941.55 

30 INPUT A,A$,A1 


where A=350 А1=-8.05 
AS- APRIL 12, 1969 


2350,“АРЕП, 12, 1969",-8.05 


Show how the printed output will appear in each of the following situations. 


(a) 


(b) 


(c) 


(a) 


10 PRINT “NAME”,N$,(X+Y)12/3,T4 


where N$=GEORGE У=8.2 
Х=27.6 T4=-5.83x 10 


МАМЕ GEORGE 427.213 -0.000585 


10 PRINT “NAME”;N$;(X+Y)12/3;T4 
where the variables have the same values as in part (a). 
NAME GEORGE 427.215 -0.000585 


12 РАМТ A1,A2,A3,A4 
14 PRINT B1,B2,B3,B4 


where Ai=7.43x 10° В1=-2.55х 10° 
А2--4373665.8 B2=0.843 x 107 
A3=0.0006066183 B3-400.33 
A4- —3136687 B4-10? 
7430 -4.37367E*6 6.06618E-4 -3134687 
-2.55000Е-8 9450000 400.33 0.001 


12 PRINT A1;A2;A3;A4; 
14 PRINT B1;B2;B3;B4 
where the variables have the same values as in part (c). 


35 


7430 -4.37367E+6 6-06618E-4 -3136687 -2.55000Е-В 8450000 400.55 


0.001 
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2.40 In each of the following cases show how the comment (or remark) can be placed in a BASIC 
program. 


(а) Add the program heading AREA AND CIRCUMFERENCE OF A CIRCLE 
10 REM AREA AND CIRCUMFERENCE OF A CIRCLE 


(b) Add the comments AREA and CIRCUMFERENCE to the statements 
40 LET A-P*R12 
and 
50 LET C=2+P+R 


40 LET A-P*Rf ‘AREA 
50 LET C=2«P*R ‘CIRCUMFERENCE 


2.41 Several GO TO statements are shown below. Identify which, if any, are written incorrectly. 


Statement Error 
10 GO TO 50 correct 


120 GO TO M the statement number to which control is transferred 
must be a positive integer, not a variable 
80 GO TO 25 correct 


50 GO TO 50 a GO TO statement cannot transfer control to itself. 


Supplementary Problems 
2.42 Answer the following questions for the version of BASIC that is used at your particular school or office. 
(a) How many significant figures can be included in a number? 
(b) How many characters can appear in a string (i.e., what is the maximum string length)? 
(c) Can a string variable be written as a letter followed by a digit and a dollar sign (e.g., C1$)? 
(d) Can the keyword LET be omitted from a LET statement (e.g., 10 A=B+C)? 
(e) Are multiple assignments permitted in a single LET statement (e.g., 10 LET X- Y-Z- 13)? 


2.43 Express each of the following quantities as a BASIC number. 


(a) 5 (e) -7,328,500 

(b) 8000 (f) 0.2851 x 10* 

(c) -1.8033х 107? (g) 0.2851 x 10° 

(d) 1/3 (h) —16,752.47 

2.44 Some of the following constants are written incorrectly. Identify all errors. 

(a) 40.250 (e) -77777777 (i) 0.833333333333Е-2 
(b) 5076 | (/) 1,000,000 (/) -00263 
(с) 3 E-2 (g) 2.53E+99 (k) 4.48Е 


` (d) 3.8822Е-7.3 (h) 64E+6 (1) 0.83333333-Е2 
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2.45 


2.46 


2.47 


2.48 


2.49 


2.50 


2.51 


Some of the following strings are written incorrectly. Identify all errors. 

(a) $1,995.00 

(b) JULY 4, 1776 

(c) BEGINNER’S ALL-PURPOSE SYMBOLIC INSTRUCTION CODE 
(d) 4 O'CLOCK 

(e) “NUTS!” 

(f) 2X+4Y=Z 


Each of the following represents either a numeric or a string variable. Some are written incorrectly. 
Determine the type of variable in each correct case, and identify all errors. 


(a) J (c) J$ (е) 516 (g) XSTAR (i) PI (k) 5T (m) ZO 
(b) J6 (4) 156 (f) 165 (h) C10 (j) N$ (Г) v« (") М5 


Write а BASIC formula that corresponds to each of the following algebraic terms. 
2(pla) 
(r = 3n" 
(g) (i+j-1Y/5 
(ха + x2)" (y1 + y2)" ИЕ 
(ха yi)" *^ Охо Гуз)" 


(аў ans (f) 
(b) (x+3)™* 
(c) 2(a/b)'° 
(d) 1.87(u + v)—5.088(x/y + 2z°) (h) | 
(e) 1- x + 2/2 х2/6+ х*/24— х°/120 


Іп your version of BASIC, can a variable that has not been defined (i.e., that has not been assigned a 
value) appear on the right side of the equal sign in a LET statement? If so, what is the effect of doing 


this? 


Write a LET statement for each of the following situations. 

(a) Assign a value of 758.33 to the variable P. 

(b) Assign the value represented by the variable А to the variable В. 
(c) Assign the string PITTSBURGH, PA. to the variable F$. 

(d) Assign the string represented by the variable M$ to the variable N$. 
(е) Assign the value of the formula X/(A--B-C) to the variable Y3. 

(f) Decrease the value assigned to the variable K by 2. 

(g) Double the value assigned to the variable C5. 


(h) Assign the value of the formula (A12+B12)1.5 to the variables B and C. 


Write a LET statement that corresponds to each of the following algebraic equations. 


(а + 3)b" 
2Л(с = dib)+1 
е, (аьу/(с- ay" 1/т+т) 
© = [ата | 


a, — asx + азх? — asx? + asx* 
а: ax + E A 


(a) w= 


с = 
(с) у С. сох + 05x? - сал? 


(d) P= rA(1+ 14+)" = 1] 


in Problem 2.50 above will have resulted in a lengthy LET statement. Replace 


Each of the equations 
equivalent sequence of short, simple LET statements. 


each statement with an 
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2.53 


2.54 


2.55 


2.56 


2.57 
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Write an algebraic equation that corresponds to each of the following LET statements. 


(a) 
(5) 
(с) 
(а) 
(е) 


10 LET F- А+2*В/С1.5 
20 LET Е=А+(2*В/С)! 5 
30 LET F=(A+2)*(B/O)t.5 
40 LET F=((A+2)*B/C)t.5 
50 ТЕТ G=P+Q/R*S/T 


What particular difficulty might Бе experienced т executing the statement 


15 LET X-(Y-Z)1.25 


Consider the statement ° 


25 LET Р=-014 


If О=2, what value will be assigned to P? 


Consider the statement 


35 LET Р=014 


If О--2, what value will be assigned to P? (Compare with the answer to Problem 2.54 above.) 


Write an appropriate statement, or set of statements for each situation described below. 


(a) 


(b) 
(c) 


(d) 


G) 
(k) 


Enter numerical values for A, B and C and string values for M$ and N$. All of the data are to be 
typed on one line of a typewriter terminal. 


Enter the values for A, N$ and B on one line and the values for M$ and C on the next line. 


Enter numerical values for A, B and C and string values for M$ and N$. Each value is to be typed 
at the start of a new line. 


Print a message saying 

ENTER VALUES FOR A,B,C,M$ AND N$ 
and then enter the requested data on the same line as the printed message. 
Print the message described in part (d). Then enter the requested data on the next line. 
Print the values of A, B, C, M$ and N$ on one line, with normal spacing between each item. 
Print the values of A, B, C, M$ and N$ on one line, spacing the items as closely as possible. 


Print the values of A, B and C on one line, spacing the items as closely as possible. Allow for 
subsequent output to begin on the same line, immediately after the value for C. 


Print the values of A, B, C, (A+B+C)/3, (А*В*С)1 (1/3) and (A12+Bt2+Ct2)t.5 all on one line. 
Follow this with a blank line, then a third line with the value of M$ printed near the left margin and 
the value of N$ printed near the right. 

Print the numerical values of A, B and C all on one line. Precede each number with an appropriate 
descriptive label. 

Print the values of M$ and N$ on separate lines, with a blank line between them. Precede the value 


of M$ with the label NAME, and precede N$ with the label SOCIAL SECURITY NUMBER. 
Center the output as closely as possible. 


Show how the input data will appear in each of the following situations. 


(а) 5 INPUT А,В,С 


10 INPUT M$,N$ 

where А = 0.0000062 М$ = SHARON 
В = 27.5х 10-2 № = САП. 
С--1000 
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2.58 


2.59 


2.60 


(b) 20 INPUT P1,P2,T$ 
where P1 = —743.08 Т$ = SUSAN 
Р2 = 0.00987 
(с) 25 INPUT A$,B$,C$ 


мһеге А$ = NEW YORK C$= SAN FRANCISCO 
B$= CHICAGO 


(d) 15 INPUT P,P$,Q,Q$ 


where P = 2,770,543 О = 48.8x 10° 
P$ = DECEMBER 29, 1963 Q$= ELEVEN O'CLOCK 


Show how the output will appear in each of the following situations. 
(а) 100 PRINT A;B;C;P;P1;P2;Q 


where А = 0.0000062 Р1--743.08 
В = 27.5х 107? Р2 = 0.00987 
С = -1000 О = 48.8 x 10° 
Р = 2,770,543 


(Б) 110 РАМТ A,B,C,P,P1,P2,Q 

where the variables have the same values as in part (a). 
(с) 120 PRINT А+В*С,Р/О,РІ/Р2 

where the variables have the same values as in part (a). 
(d) 130 PRINT M$,P$,Q$ 


where M$=SHARON 
P$ = DECEMBER 29, 1963 
0$ = ELEVEN O'CLOCK 


In each of the following cases show how the comment (or remark) can be placed in a BASIC program. 


(a) Add the program heading AVERAGING OF AIR POLLUTION DATA. 
(b) Insert the remark BEGIN LOOP TO CALCULATE CUMULATIVE SUM. 
(c) Add the comment CALCULATE AVERAGE VALUE to the statement 


80 LET A=S/N 
(d) Add the comment READ A DATA POINT to the statement 
20 INPUT X,T 


Several GO TO statements are shown below. Identify which, if any, are written incorrectly. 


(a) 100 GO TO 12 (d) 55 GO TO 400 
(b) 75 GO ТО К+1 (e) 20 GO TO "60" 
(c) 30 GO TO 30 


2.61 


2.62 


2.63 


2.64 
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Programming Problems 


Prepare a flowchart for the program shown in Example 2.30. Compare with the flowchart for Example 
2.26, shown in Fig. 2.1. 


Write a complete BASIC program for each of the following problem situations. 
(a) Print HELLO! in the middle of a line. 
(b) Have the computer print 

HI, WHAT'S YOUR NAME? 


оп one line. The user then enters his or her name immediately after the question mark. The 
computer then skips two lines and prints 


WELCOME (name)! 
LET'S BE FRIENDS! 


оп two consecutive lines. 


Write a complete conversational-type BASIC program for each of the following problem situations. 


(a) А temperature reading, in Fahrenheit degrees, is to be read into the computer and converted into 
Celsius degrees, using the formula 


C= Ser- 32) 


(b) A piggy bank contains nı half-dollars, n; quarters, ns dimes, n4 nickels and ns pennies. How much 
money is in the bank, in terms of dollars? 


Develop an outline, draw a flowchart and then write a complete BASIC Program for each of the 
following problems. Write each program in such a manner that it can be used to process several sets of 
data sequentially. Be sure that all output data is clearly labeled. 


(a) Calculate the volume and area of a sphere using the formulas 
V = 41/3 
А = 4т? 
where r is the radius of the sphere. 
(b) The pressure, volume and temperature of a mass of air are related by the formula 
РУ = 0.37т(Т + 460) 


where Р = pressure, pounds per square inch 
У = volume, cubic feet 
т = mass of air, pounds 
T = temperature, °F 


If an automobile tire containing 2 cubic feet of air is inflated to 28 pounds per square inch at room 
temperature, how much air is in the tire? 


(c) If a, b and c represent the three sides of a triangle, then the area of the triangle is 
A = Vs(s- ays - bXs с) 
where s = (a + b + c)/2. Also, the radius of the largest inscribed circle is given by 
n = Als 
and the radius of the smallest circumscribed circle is 


re = abc/(4A) 
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Calculate the area of the triangle, the area of the largest inscribed circle and the area of the smallest 
circumscribed circle for each of the following sets of data: 


11.88 5.55 10.00 13.75 20.42 7.17 173.67 
8.06 4.54 10.00 9.89 8.00 27.24 2.97 87.38 
12.75 | 736 | юв | 11.42 12.00 31.59 6.66 139.01 


(4) Suppose that P dollars are invested at ап annual interest rate of i (expressed as а decimal). If the 
interest is reinvested, after n years the total amount of money, F, can be determined as F = P(1+ i)". 
(This is known as the law of compound interest.) 

If $5000 is invested at 6%, compounded annually, how much will have accumulated after 10 years? 

If the interest is compounded quarterly rather than annually the above equation must be changed 
to read F = P(1 + 1/4), 

If the same $5000 is invested at an annual rate of 6%, compounded quarterly, how much will have 
accumulated after 10 years? Compare this answer with the result obtained earlier (for interest 
compounded annually). 

(e) The increase in population of a bacteria culture with time is directly proportional to the size of the 
population. Thus the larger the population, the faster the bacteria will increase in number. 
Mathematically the population at any time can be expressed as 

` (0.02891? (0.02891 0.02891)" 
Р= DE + 0.023514 0028007, LY QU, cs emm] 


where г = time in hours beyond a reference time 

Po = bacteria population at the reference time 

P = bacteria population at time / 
Calculate the population multiplication factor (Р/Ро) at 2, 5, 10, 20 and 50 hours beyond the reference 
time. Include the first 10 terms of the series (i.e., let n — 9). 


Chapter 3 
Running a BASIC Program 


Now that we have learned how to write simple BASIC programs, let us see how these programs 
can be entered into the computer, edited, saved, listed and executed. We will also consider some 
methods for detecting and correcting various types of errors that can occur in improperly written 
programs. 

In this chapter our attention will be directed toward the use of a large mainframe computer 
within a timesharing environment. We will assume that a “hard-copy” terminal, similar to that shown 
in Fig. 1.3, is used to communicate with the host computer (i.e., the mainframe). The use of a 
video-type terminal is essentially the same, except that old information will “scroll” off the top of the 
screen as new information is generated at the bottom. 

Running a BASIC program on a microcomputer is similar, though the details are somewhat 
different. (Actually, the procedures for running BASIC are somewhat different on all computers, 
regardless of their size.) Representative examples that illustrate how BASIC programs can be listed, 
edited, saved and executed on a microcomputer are included in Chapter 10 (see Sections 10.2 and 


10.7). 


3.1 THE TIMESHARING TERMINAL 


We have already learned that a programmer must communicate with a computer through a 
timesharing terminal (i.e., a console) when operating in a timesharing environment. These devices can 
be “hard wired" directly to the computer, or they can be used with a modem (i.e., a modulator- 
demodulator) to establish a connection via a telephone line. In fact, some timesharing terminals 
include a built-in modem with telephone dialup capability. Moreover, some terminals are able to store 
programs, edit programs and transfer programs to and from the host computer. Such devices are 
referred to as intelligent ("smart") terminals. 

Figure 3.1 shows a closeup of the keyboard for the terminal presented in Fig. 1.3. Other 


terminals have keyboards that are quite similar, if not identical. We will refer to certain of these keys 
in subsequent sections of this chapter. 
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3.2 LOGGING IN 


The first step in communicating with a computer through a timesharing terminal is to establish a 
connection to the computer. This is accomplished by means of the login (or logon) procedure. The 
following description is representative of a login procedure, though there are some variations from 
one version of BASIC to another.* 

If the connection is to be made via a telephone line, the login procedure begins by the user 
dialing a specified telephone number (after turning on the power to the terminal). The computer will 
then respond by typing a brief message and requesting that the user “log in" (i.e., identify himself or 
herself by specifying a project number, etc.). The user must then type LOGIN (or LOGON, or 
simply LOG), followed by the desired information. It may then be necessary for the user to type 
BASIC, indicating that the user wishes to work with BASIC rather than some other language. 

The procedure is similar, though simpler, when the terminal is wired directly to the computer, 
thus not requiring a telephone line connection. In this case the procedure normally begins when the 
user types LOGIN, followed by the project number. 


EXAMPLE 3.1 


A student at a large university wishes to run a BASIC program from a telephone-dialup terminal. The 
student's assigned project number is 123456. The login procedure is described below. 


1. The student turns on the power switch of the terminal. (On the terminal shown in Fig. 1.3, the power 
switch is located near the left front of the keyboard.) 
2. The student then dials the appropriate telephone number, and the computer responds by typing 


PLEASE LOGIN. 
3. The student types the word LOG after the period and then depresses the RETURN key. The computer 
responds by typing 
JOB 27 TTY42 
ж 
4. Тһе student then enters the project number, 123456, after the # sign and again depresses the RETURN 
key. The computer then types 
08-FEB THUR 21:11:46 
indicating the date, day and time, respectively. 
5. The word BASIC is then typed by the student after the period. This causes the BASIC system to be 
accessed from the computer's library of programming languages. 
6. The computer types 
NEW OR OLD--> 
ngly. If trying to access a BASIC program that had previously 


the student would type OLD. In this case, however, the student 
types the word NEW after the arrow. 


and the student must respond accordi 
been stored in the computer's library, 
wishes to enter a new program and, therefore, 


7. Finally, the computer types 


NEW FILE NAME--> 


g the name of the new program—in this case, SAMPLE. (Typically, a 


typin 
and the use EP beginning with a letter.) The student is now ready to 


program name will consist of one to six characters, 
begin typing in the program. 


A listing of the entire login procedure is shown in Fig. 3.2. Those items that were typed by the student have 


been underlined. 


* The procedures described in this chapter apply specifically to the DECsystem-10 computer, as currently implemented at the 
University of Pittsburgh. For simplicity, some of the detail has been omitted from the narrative text. 
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PLEASE LOGIN. 


LOS 
JOB 27 TTY42 

#123456 

08-ҒЕВ THUR 21:11:46 


. BASIC 


NEW OR OLD-->NEW 
NEW FILE NAME-—>SAMPLE 


Fig. 3.2 


If an error is made in transmitting the required information to the computer during the login 
procedure, then an appropriate message will be typed and the user will be asked to enter the 


information again. 
EXAMPLE 3.2 


Referring to the situation described in Example 3.1, suppose the student had typed BASIV instead of 
BASIC during the login procedure (the V key is next to the C key). The computer would respond by typing 
?BASIV 


The student would then type BASIC after the period, and the login procedure would be continued. The entire 
login procedure is shown in Fig. 3.3. Again, the student responses are underlined. 


PLEASE LOGIN. PITT ПЕС-1055/А 544.51 21:11:46 
.LOG PLEASE LOGIN OR ATTACH. 
JOB 32 TTY42 
#123456 „ов 
08-ҒЕВ THUR 21:37:07 JOB 27 PITT DEC-1055/A 54А. 51 TTY42 
#115421/160551 
.BASIV PASSWORD: 
ALLOCATION REMAINING: 9.8 UN ITS 
?BASIV 2111 08-ҒЕВ THUR 
«BASIC .К BASIC 
NEW OR OLD-->NEW NEW OR OLD-->NEW 
NEW FILE NAME-—>SAMPLE NEW FILE МАМЕ-->ЕХЗ. 1 
Fig. 3.3 Fig. 3.4 


Many timesharing systems issue each user a separate password that must be supplied with the 
project number. The password is keyed in, but the typing is suppressed by the computer, thus 
maintaining confidentiality. The user will not be allowed to log in if the correct password for a given 
project number is not supplied. 


A listing of a login procedure requiring a password is shown in Fig. 3.4. As before, the 
user-supplied responses have been underscored. 


3.3 ENTERING A PROGRAM 


Once the login procedure has been completed, the user may type in the program, one statement 
(one line) at a time. To do so, the user must wait for the computer to type the symbol 
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at the start of a line. (This is known as prompting.) The user then types in a BASIC statement, 
starting with the statement number (line number). The typed information will not be transmitted to 
the computer, however, until the RETURN key has been depressed. Once this is done the printing 
head will move to the start of the next line, and the computer will request the next statement by 
printing another > symbol. 

This procedure is continued until all of the program statements have been entered and 
transmitted to the computer. When the computer generates the symbol > after the last statement, 
the user may respond with a command specifying what should be done with the program (e.g., RUN, 
LIST, SA VE, etc.). We will discuss these commands later in this chapter. 

When typing a program into the computer, the instructions need not be entered in the same 
order that they will be executed. The computer will rearrange the instructions by increasing 
statement numbers once the entire program has been entered. (Remember that it is the ordering of 
the statement numbers that determines the sequence with which the statements will be executed.) 


EXAMPLE 3.3 


A programmer who has just completed the login procedure wishes to enter a program into the computer. In 
the rush to enter and run the complete program, the programmer forgot to type the first two statements. 
Realizing the mistake before finishing, however, the programmer then typed in the missing statements. This is 
entirely permissible, since the program will be properly rearranged within the computer’s memory. 

A listing of the statements, in the order that they were entered, is shown in Fig. 3.5. 


>20 PRINT "RADIUS-"; 

>30 INPUT R 

>40 LET A-P*R^2 

>50 LET C=2*P*R 

>50 PRINT "R=";R,"A=";A,"C=";C 
>70 GOTO 20 


>80 END 
>5 REM PROGRAM ТО CALCULATE AREA AND CIRCUMFERENCE OF ñ CIRCLE 


>10 LET P=3. 1415927 


Fig. 3.5 


3.4 CORRECTING ERRORS 

It is practically impossible for a programmer to write a complete program and enter it into the 
computer without making an occasional mistake. Therefore we must have a way to correct typing 
errors and to add, delete or change a statement once it has been transmitted to the computer. In this 
section we will see that all of these operations can easily be accomplished in BASIC. | 

Incorrectly typed characters can be deleted by depressing the DELETE key (on some terminals, 
the RUBOUT key). The most recent character will be deleted by depressing the DELETE key once; 
depressing it twice will cause the two most recent characters to be deleted, and so on. Such deletions 
must, however, be made before the line containing the errors is transmitted to the computer (by 


depressing the RETURN key). After the desired characters have been deleted, the programmer may 
proceed to type in the correct characters. 


EXAMPLE 3.4 
wn in Fig. 3.5 into the computer. While typing the 


s to enter the BASIC program sho! 
s a U in place of an I. Thus the line appears as 


A programmer wishe: : 
the рговгаттег accidentally type: 


first statement, however, 
follows: 
>20 PRU 


Realizing the mistake immediately, the pro: 
in the remainder of the statement. 


grammer depresses the DELETE key once and then proceeds to type 
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The entire typed line will appear as 
>20 PRU\U\INT “RADIUS=”; 


Note that the deleted character (U) is shown between а pair of backward slashes. The backward slashes are 
typed automatically when the DELETE key is first used and when its use is first discontinued. It is important to 
understand, however, that the backward slashes and the deleted character will not be transmitted to the 
computer. Thus the computer will interpret the line of type as 


20 PRINT “RADIUS=”; 


as desired. 


EXAMPLE 3.5 
Let us again consider the typing error discussed in the previous example. Now, however, we assume that the 
programmer has not noticed the error until a few more characters have been typed. Thus the typed line will 
appear as 
>20 PRUNT “RA 
when the error is discovered. The programmer must therefore depress the DELETE key seven times in order to 


delete everything from (and including) the letter U and then retype the rest of the statement correctly. 
The first typed line will appear as follows: 


>20 PRUNT “RA\AR” ТМІЛІМТ “RADIUS="; 


Again we see that the deleted characters are enclosed by a pair of backward slashes. The slashes are printed 
automatically when the DELETE key is first used and when it is first discontinued. Note that the deletions run 
“backward,” i.e., the first character to be deleted is the letter A, followed by the letter R, etc., until the U has 
been deleted. Since these characters are not transmitted to the computer, the typed line will be stored in the 
computer as 


20 PRINT "RADIUS- "; 


Sometimes a typing error is not noticed until an entire line (or most of it) has been typed. In such 
a situation it may be very cumbersome to delete one character at a time with the DELETE (or 
RUBOUT) key. A better procedure is to delete the entire line, replacing it with a new line. If the 
line has not been transmitted to the computer it can be deleted by depressing the ALTMODE or 
ESCAPE key (labeled ESC in Fig. 3.1). If the line has been transmitted, it can be replaced simply 
by entering a new line having the same statement number as the old line. 


EXAMPLE 3.6 


In entering the program shown in Fig. 3.5, suppose that the programmer had typed 


220 PRUNT "RA 
and then realized the mistake (typing a U instead of an D. He or she could delete the incorrect line by 
depressing the ESC key and then retype the line correctly. 
Alternatively, the programmer could depress the RETURN key, thus entering the incorrect, incomplete 
statement into the computer. The correct statement would then be typed as follows: 
>20 PRINT “RADIUS="; 


When the RETURN key is again depressed, the new statement will be entered into the computer, thus replacing 
the previous (incorrect) statement having the same statement number. 


An entire statement can be deleted from a BASIC program simply by typing the statement 
number and then depressing the RETURN key. 
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EXAMPLE 3.7 


‚ Зиррозе that the program shown in Fig. 3.5 Ваз been entered into the computer and the programmer then 
decides to delete the REM statement. It is only necessary to type 


>5 


and then depress the RETURN key. This deletes statement number 5 (the REM statement). 


3.5 PROCESSING А PROGRAM 


A program is ready to be processed once it has been entered into the computer and all known 
mistakes have been corrected. Usually we will want to type out (i.e., list) the program, store (i.e., 
save) the program for later use and, of course, execute (i.e., run) the program. These operations are 
easily carried out by typing the words LIST, SAVE and RUN. The programmer can issue these 
commands in whatever order desired. 


EXAMPLE 3.8 Area and Circumference of a Circle 


A program similar to the one shown in Fig. 3.5 has been entered into the computer, and the programmer 
then wishes to print out, store and execute the program. The programmer therefore types the word LIST after 
the original program listing (which may contain error corrections, statements out of order, etc.). This causes the 
corrected statements to be listed in the proper order. 

Once the complete listing has been printed out by the computer, the programmer types the words SAVE 
and RUN in order to store and execute the program. Finally, the programmer types BYE after the execution has 
terminated, thus terminating the connection to the computer. 

A listing of the entire timesharing session is shown in Fig. 3.6. The information provided by the programmer 
has been underlined as before. Notice that the original program statements contain error corrections in statements 
10 and 20, and that the initial statement 20 has been replaced with a later, corrected statement. Also, we see that the 
statements have not been typed in the sequence in which they will be executed. 

Once the programmer types LIST we see that the title of the program (which happens to be CIRCLE) is 
printed, followed by a properly sequenced listing of the program statements. The input and output data 
associated with the execution of the program are shown after the command RUN. Finally, the last few lines 
contain statistical information that is provided by the logout procedure resulting from the BYE command (we 


will say more about this in Section 3.6). 
After the programmer has logged out it is no longer possible to communicate with the computer (unless, of 
E will be stored for subsequent use, however, 


course, he or she subsequently logs in again). The program CIRCLI 
as a result of the SAVE command. (The program will be stored on a magnetic disk or tape rather than in the 


computer's main memory, though the programmer need not be concerned with this.) 


If a previously stored program is to be processed rather than a newly entered program, then the 
programmer must type OLD rather than NEW after the login procedure. The computer will respond 
with 

OLD FILE МАМЕ--> 


The programmer will then type in the name of the stored program. From this point on the program 


can be processed in the manner described earlier. 


EXAMPLE 3.9 

Suppose that the program CIRCLE, discussed in Example 3.8, is to be executed after having previously 
been stored. Figure 3.7 below shows a listing of the complete timesharing session, including the login and logout 
procedures. Notice that the commands are very similar to those shown in Fig. 3.6, the only difference being the 


use of the word OLD instead of NEW. 


In order to replace an old program with a newly edited version (keeping the same name as 
before), the programmer simply types REPLACE followed by the program name. (Note that this will 


PITT DEC-1055/A 54B.01B 18:21:29 
PLEASE LOGIN OR ATTACH. 


„LOGIN 

JOB 42 PITT DEC-1055/A 54B.01B TTY42 
#115421/160531 

PASSWORD: 

ALLOCATION REMAINING: 9.8 UNITS 

1821 15-FEB THUR 


«К BASIC 


NEW OR OLD-->NEW 
NEW FILE NAME-->CIRCLE 


220 PRUNT\TNU\INT RADIUS 
250 INPUT R 


>: LET A=P*R*2 
>50 LET C=2ePar 


260 PRINT "К=" Б, "A="; A, "C="; C 
>70 GOTO 20 


>80 END 


25 БЕМ PROGRAM TO CALCULATE AREA AND CIRCUMFERENCE ОҒ А CIRCLE 
210 LET P=3.1416\6\5927 


>65 PRINT 


>20 PRINT "RADIUS=" 
235 IF В=0 ТНЕМ 80 
>LIST 


CIRCLE 18:27 15-FEB 


5 REM PROGRAM TO CALCULATE AREA AND CIRCUMFERENCE OF A CIRCLE 
10 LET P=3.141593 

20 PRINT "RADIUS="; 

30 INPUT R 

35 IF R=0 THEN 80 

40 LET A-P«*R^2 

50 LET C-2«P«R 

60 PRINT "R-";R,"A-";A,* 
65 PRINT 

70 GOTO 20 

80 END 


>SAVE 
>RUN 
CIRCLE 18:28 15-FEB 


RADIUS= 715 
R= 15 A= 706.858 C= 94.2478 


RADIUS= 76.82 
R= 6.82 A= 146.123 


о 
и 


42.8515 


RADIUS= 737.4 
R= 37.4 A= 4394.33 C= 234.991 


RADIUS= 70 


TIME: 0.21 SECS. 


>ВУЕ 


Job 42, USERE115421,1505311 LOGGED OFF TTY42 1829 15-ҒЕВ 
SAVED ALL FILES (25 BLOCKS) 


CPUTIME 0:01 DISK R+W=77+15 СОММЕСТ-В MIN — UNITS-0.0101 
Fig. 3.6 
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PITT DEC-1055/A 54B.01B 20:15:09 


PLEASE LOGIN OR АТТАСН. 


. LOGIN 

JOB 62 PITT DEC-1055/A 54B.01B TTY42 
#115421/160551 

PASSWORD: 

ALLOCATION REMAINING: 9.8 UNITS 

2015 15-РЕВ THUR 

.R BASIC 


NEW OR OLD-->OLD 
OLD FILE NAME-->CIRCLE 


>RUN 


CIRCLE 20:14 15-FEB 


RADIUS= 717.45 


R= 17.45 A= 955.623 C= 109.642 
RADIUS= 712.7 

R= 12.7 A= 506.707 C= 79.7965 
RADIUS= 732.6 

R= 32.6 A= 3338.76 C= 204.832 
RADIUS= 70 


TIME: 0.20 SECS. 


>BYE 

JOB 62, USERL115421,1605311 LOGGED OFF TTY42 2015 15-ҒЕВ 
SAVED ALL FILES (25 BLOCKS) 

CPUTIME 0:01 DISK R+W=98+6 СОММЕСТ=5 MIN UNITS=0. 0078 


Fig. 3.7 


cause the old version of the program to be destroyed, since it will be written over by the newer 


version. 

mona language also allows us to process a program in other ways. For example, we can 
delete a previously stored program by typing UNSAVE, or we can obtain a listing of the names of all 
stored programs by typing CATALOG. Collectively, the commands used to process a program are 
called system commands (or editing commands). Although the number of available editing com- 
mands will differ from one version of BASIC to another, virtually all versions of the language contain 
the essential features described above. À summary of the more commonly used system commands is 


presented in Appendix C. 


3.6 LOGGING OUT 
i i he connection to the computer 
We have already seen that the procedure required to terminate t 6 4 
(.е., the logout procedure) is initiated by typing the word GOODBYE (or simply BYE). Once this 


command has been issued the computer will respond by typing some summary statistics for the 
current timesharing session. Included in the statistics are the date, the number of files (i.e., programs 
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and data sets) that have been saved, the length of the connection (timewise), the amount of actual 
computer time used and, usually, the cost. The logout procedure is illustrated in Examples 3.8 and 
3.9 (see Figs. 3.6 and 3.7) as well as in Example 3.10 below. 


EXAMPLE 3.10 

A programmer has just completed processing a program and has therefore typed the word BYE. The 
computer responds by typing the three lines of information shown in Fig. 3.8 and then breaking the connection 
to the terminal immediately thereafter. 


>BYE 
JOB 27, USERC115421,160531] LOGGED OFF TTY42 2128 8-ҒЕВ 


SAVED ALL FILES (15 BLOCKS) 
CPUTIME 0:07 DISK R+W=856+8 CONNECT=17 MIN UNITS=0.0240 


Fig. 3.8 


The first line of output states that the user whose account number is 115421, 160531 has logged out from 
terminal number 42 at 9:28 p.m. (i.e., 2128 hours) on February 8. The second line shows that 15 “blocks” of 
information have been saved (where one block contains 640 characters in this particular version of BASIC). In 
line 3 we see that 0.07 seconds of computer time (actually, central processor time) were required to process this 
program; that information was read from a magnetic disk storage device 856 times and written onto the disk 8 
times; and that the timesharing session lasted 17 minutes at a charge of 0.0240 “units.” 


3.7 ERROR DIAGNOSTICS 


Programming errors often remain undetected until an attempt is made to execute the program. 
Once the RUN command has been issued, however, the presence of certain errors will become 
readily apparent, since such errors will prevent the program from being interpreted, i.e., transformed 
into a machine-language program. Some particularly common errors of this type are a reference to an 
undefined variable or an undefined statement number, right- and left-hand parentheses that do not 
balance, failure to terminate the program with an END statement, etc. Such errors are called 
grammatical (or syntactical) errors. 

Most versions of BASIC will generate a diagnostic message when a grammatical error has been 
detected. These messages are not always completely straightforward in their meaning, but they are 
nevertheless helpful in identifying the nature and location of the error. 


EXAMPLE 3.11 


Figure 3.9 shows a BASIC program similar to that presented in Fig. 3.6, except that several grammatical 
errors have deliberately been introduced. The diagnostic messages that are generated by issuing the RUN 
command are clearly shown. Notice that the errors in lines 40 and 80 and the omission of the END statement 
have been found. However, the error in line 50 (reference to the variable B rather than P) has gone undetected. 


Grammatical and typing errors are usually very obvious when they occur. Much more insidious, 
however, are logical errors. Here the program correctly conveys the programmer's instructions, free 
of grammatical or typing errors, but the programmer has supplied the computer with a logically 
incorrect set of instructions. 

Sometimes a logical error will result in a condition that can be recognized by the computer. Such 
a situation might result from the generation of an excessively large numerical quantity (exceeding the 
largest permissible number that can be stored in the computer), or from an attempt to compute the 
square root of a negative number, etc. Diagnostic messages will be generated in situations of this 
type, making it easy to identify and correct the errors. These diagnostic messages are called execution 
diagnostics to distinguish them from the interpretation diagnostics described earlier. 
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5 REM PROGRAM TO CALCULATE AREA AND CIRCUMFERENCE OF A CIRCLE 
10 LET P=3. 1415927 

20 PRINT "RADIUS-"; 

30 INPUT R 

40 LET A-(P*R^2 

50 LET C=2*B#R 

80 PRINT "Rz";R,"Az";A,"Ce"4C 

70 PRINT 

80 GO TO 15 


>RUN 
EXS. 11 22:19 18-FEB 


? ILLEGAL FORMULA IN LINE 40 
? UNDEFINED LINE NUMBER 15 IN LINE 80 


? NO END INSTRUCTION 
TIME: 0.18 SECS. 
Fig. 3.9 


EX3.12 22:05 22-FEB 


10 REM REAL ROOTS OF A QUADRATIC EQUATION 

20 INPUT A,B,C 

30 IF А=0 THEN 90 

40 LET D=B*2-4*A*C 

50 LET X1-(-B*D^.5) /(2#A) 

60 LET X2=(-B-D*.5) /(2#A) 

70 PRINT "A=" ZA, "B="; B, "C="; C, "X12"; X1, "X27"; X2 
80 GO TO 20 

90 END 


>RUN 
ЕХ$. 12 22:05 22-РЕВ 


1,2,5 
% ABSOLUTE VALUE RAISED TO POWER ІМ LINE SO 


% AISED TO POWER IN LINE 60 
ЕЕ Mar 2 C= 5 Хі= 0.414214 Х2--2.41421 


? 1E-30,1E10,1E36 
% OVERFLOW IN LINE 60 СЕ 


A= 1.00000Е-50 B= 1.00000E*10 
1.00000E+34 Хіт-В.52000Е%52 Х2--1.70141Е%58 


? 0,0,0 


TIME: 0.50 SECS. 
Fig. 3.10 
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EXAMPLE 3.12 
Figure 3.10 shows a BASIC program for computing the real roots of the quadratic equation 


ах? + bx *c-0 


using the quadratic formula 


-b+ М2 4ас 
54 2а 


Тһе program is completely free of grammatical errors. However, the program is unable to accommodate 
negative values for 5?— 4ac (see rule 3, Section 2.7). Furthermore, numerical difficulties may be encountered if 
the variable a has a very small or a very large numerical value (see rule 5, Section 2.1). 

Following the listing of the program we see the output that is generated for a = 1, b = 2 and c = 3, and for 
a = 107%, b = 10'° and с = 10%. In the first case we obtain a negative value for 5? — 4ac. This is the reason for 
the first two diagnostic messages (notice that the computation proceeds using the absolute value of b? — 4ac). 
Тһе second set of data results in an excessively large value for x2, thus causing the overflow message. (Note that 
the information supplied by the user is underlined.) 


x 


3.8 LOGICAL DEBUGGING 


We have just seen that grammatical errors and certain types of logical errors will cause diagnostic 
messages to be generated when compiling or executing a program. Errors of this type are very easy 
to find and correct. Usually, however, logical errors are much more difficult to detect, since the 
output resulting from a logically incorrect program may appear to be error-free. Moreover, logical 
errors are often hard to find even when they are known to exist (as, for example, when the computed 
output is obviously incorrect). Thus a good bit of “detective work” may be required in order to find 
and correct errors of this type. Such detective work is known as logical debugging. 


Detecting Errors 

The first step in attacking logical errors is to find out if they are present. This can sometimes be 
accomplished by testing a new program with data that will yield a known answer. If the correct 
results are not obtained, then the program obviously contains errors. Even if the correct results are 
obtained, however, one cannot be absolutely certain that the program is error-free, since some errors 
cause incorrect results only under certain circumstances (as, for example, with certain values of the 
input data or with certain program options). Therefore a new program should receive thorough 
testing before it is considered to be debugged. This is especially true of complicated programs or 
programs that will be used extensively by others. 

As a rule, a calculation will have to be carried out by hand, with the aid of a calculator, in 
order to obtain a known answer. For some problems, however, the amount of work involved in 
carrying out a hand calculation is prohibitive. (A problem requiring a few seconds of time on a large 
computer may require several weeks to solve by hand!) Therefore a sample problem cannot always 
be developed to test a new program. Though logical debugging of such programs can be particularly 
difficult, the programmer can often detect logical errors by studying the computed results carefully to 
see if they are reasonable. 


Correcting Errors 


Once it has been established that a Program contains a logical error, some resourcefulness and 
ingenuity may be required to find the error. Error detection should always begin with the program- 
mer carefully reviewing each logical group of statements in the program. Armed with the knowledge 
that an error exists somewhere, the programmer can often spot the error by such careful study. If the 
error cannot be found, it sometimes helps to set the program aside for a while. It is not unusual for 
an overly intent programmer to miss an obvious error the first time around. 
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If an error has not been found after repeated inspection of the program, then the programmer 
should proceed to rerun the program, printing out a large quantity of intermediate output. This is 
referred to as tracing. Often the source of error will become evident once the intermediate 
calculations have been carefully examined. 

When a programmer has tried all known tricks and still has not found an error, there may be an 
inclination to suspect either a machine error or a compilation error. Though rare, such errors do 
occur. (Machine errors are sometimes intermittent, whereas a compilation error will be consistent 
and therefore reproducible.) In most instances, however, a suspected compilation or machine error 
will turn out to be a logical programming error once the problem has finally been resolved. 

Finally, the reader should recognize the fact that logical errors are inescapable in computer 
programming, though a conscientious programmer should make every attempt to minimize their 
occurrence. Thus the programmer should anticipate that a certain amount of debugging will be 
required as a part of the overall effort in writing a realistic, meaningful BASIC program. 


EXAMPLE 3.13 


A student has written a BASIC program to evaluate the formula 
х-1 1/х-12 1/х-1) 1/х-1)4 11х21 
»- C962) 4E e 

x 21 x 3 E 4\ x SNE 


To simplify the programming, the student has defined a new variable, u, as 


х-1 
«e 
x 
so that the formula becomes 


u + ^ + ° + + due‏ = ر 


The complete BASIC program is shown in Fig. 3.11. 


10 PRINT "X="; 
20 INPUT X 


30 LET U-X-1/X ў 
40 LET Y=U+ (0/2) ^2+ (0/5) ^5+ (0/4) ^4+ (0/5) 5 


50 PRINT "Yz";Y 
60 END 


>RUN 


EX3.13 21:25 05-МАҮ 


x= 22 
y= 2.20971 


ТІМЕ: 0.08 SECS. 
Fig. 3.11 


a value of about 0.69 when x = 2. However, the program results in a 
calculated value of y = 2.20971 when x =2, as seen in Fig. 3.11. Тһе student concludes, therefore, that the 


і i ted 

торга: i ical errors, which must be found and corrected. ; 
1 "B epe аа the program, the student became aware that statement number 30 results in à value 
of u = 5 vien = 2, whereas the correct value should be и = 0.5. The reason for the error is the omission of 


parentheses in statement 30, which should read 


The student knows that y should have 
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30 LET U=(X-1)/X 


The student then corrected the Program and reran it for a value of x = 2. The PRINT statement (line 50) was 
also changed so that the calculated value of и is printed out along with the calculated value of y. 

When the program was executed, the value of u was calculated correctly, but the value of y was still 
incorrect, as seen in Fig. 3.12. Therefore the student concluded that the program contains an additional error, 
which must be located somewhere in statement number 40. 


10 PRINT "X="; 

20 INPUT X 

ЗО LET U=(X-1)/X 

40 LET Ү=0+ (0/2) ^2+ (U/3) “3+ (U/4) “4+ (0/5) ^5 
SO PRINT "U=";U,"Y=";Y 


60 END 
>RUN 

EX3.13 21:27 05-MAY 
Х= 72 

U= 0.5 Y= 0.567584 


TIME: 0.07 SECS. 
Fig. 3.12 


After some additional study, the student discovered that statement number 40 is indeed incorrect. This 
statement should be written 


40 LET Y=U+(Ut2)/2+(Ut3)/3+(Ut4)/4+(Ut5)5 


program was then corrected, as shown in Fig. 3.13. At the bottom of Fig 3.13 we see that the value of y corresponding 
to x = 2 is correctly calculated as y = 0.688542. 


10 PRINT "xe"; 

20 INPUT X 

ЗО LET U-(X-1)/x 

40 LET Ү=0+ (U^2) /2+ (U^3) /5+ (U^4) /4+ (U%5) /5 
50 PRINT "Uz"jU, "Ya"; Y 


60 END 
>RUN 

ЕХ5.15 21:29 05-MAY 
x= 72 

U= 0.5 Y= 0.688542 


TIME: 0.08 SECS. 
Fig. 3.13 
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3.9 CLOSING REMARKS 


The reader is again reminded that BASIC programming is a skill, much like learning to play a 
musical instrument. It cannot be learned simply by reading a book. Rather, the reader must become 
actively involved in writing, editing, saving, listing, executing and debugging his or her own programs. 
Several appropriate programs are suggested іп. ће programming problems listed at the end of this 
chapter. The reader is urged to solve as many of these problems as possible. 

Although the material in this chapter is oriented toward the use of a large mainframe computer 
operating in a timesharing mode, it should be helpful to all beginning programmers, regardless of 
their particular computing environment. However, microcomputer programmers are encouraged to 
study the examples in Sections 10.2 and 10.7, in addition to the material in this chapter, before 
attempting to run their own BASIC programs. 


Review Questions 


3.1 What is a console? A timesharing terminal? A modem? An intelligent (“smart”) terminal? 
32 Describe, in general terms, the login and logout procedures used with BASIC. 


3.3 What is meant by prompting? How is prompting indicated on a terminal when entering or processing a 
BASIC program? 


3.4 How is a line of information that has been typed on a terminal transmitted to the computer? 


3.5 Suppose a BASIC program is entered into the computer with certain of the statements in the wrong 
places. How can this situation be corrected? 


3.6 How can one or more characters be deleted from a line of text on a terminal? How can an entire line be 
deleted? 


3.7 How can an incorrect statement be changed once it has been transmitted to the computer? 

3.8 How can a statement be deleted from a BASIC program once it has been transmitted to the computer? 
3.9 How can a BASIC program be listed on a terminal? 

310 How can a BASIC program be stored on а magnetic device for later use? 


3.11 How is a BASIC program executed? 


3.12 Suppose a BASIC program has been stored on a magnetic storage device and is to be retrieved for 
f ? 
subsequent processing. How can the program be accessed? 


3.13 Describe the purpose of each of the following system commands: BYE, CATALOG, GOODBYE, 
LIST, NEW, OLD, REPLACE,.RUN, SAVE, UNSAVE. 


3.14 What is meant by a syntactical error? 
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3.15 
3.16 
3.17 


3.18 


3.19 
3.20 


3.21 


solv 


3.22 


3.23 


3.24 


3.25 


3.26 
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How do grammatical errors and logical errors differ from one another? 
Name some common grammatical errors. 


Name some common logic errors. 


What is meant by diagnostic messages? How can interpretation diagnostics be distinguished from 
execution diagnostics? 


Are diagnostic messages generated in response to logical programming errors? 
What is meant by logical debugging? Name some common debugging procedures. 


In what way is learning to program with BASIC like learning to play a musical instrument? 


Supplementary Problems 


The following “problems” are concerned with information gathering rather than actual problem 
ing. 

Familiarize yourself with the timesharing terminals used at your school or office. 

(a) Where is the ON/OFF switch? 

(b) Does the unit have a built-in modem? If so, how does it operate? 

(c) Does the unit have built-in intelligence? 


(d) Which key causes one or more characters to be deleted from a line of text? An entire line to be 
deleted? 


(e) Which key causes a typed line to be transmitted to the computer? 


(f) Can the unit be operated in a LOCAL mode (i.e., as a stand-alone device, disconnected from a 
computer)? If so, how is this done? 


Determine the exact login and logout procedures that are used at your particular school or office. Exactly 
what information is required to log in? What is the meaning of the information provided by the 
computer during the login and logout procedures? 


What are the BASIC system commands in use at your school or office? Familiarize yourself with those 
that were not discussed in this chapter. 


How can interpretation diagnostics be distinguished from execution diagnostics in the version of BASIC 
used at your particular school or office? 


How are timesharing costs determined at your particular school or office? What is the actual cost of one 
timesharing unit? (Note: It is especially important that this question be answered by the student who 
receives free access to a computer through an educational institution. Most students have no idea of the 
equivalent commercial cost of using a large computer!) 
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Programming Problems 


327 Log in to your computer system, determine the names of any programs that may have been saved under 
your account number and log out. 


328 Enter the prograín shown in Fig. 3.6 for calculating the area and circumference of a circle. Be sure to 
correct any typing errors. List the program after it has been read into the computer. When you are sure 
that it is correct, execute the program several times using whatever values you wish for the radius. Verify 
that the computed answers are correct by comparing them with hand calculations. (Note that the 
execution is terminated by entering a value of zero for the radius.) 


329 Enter, correct, list, save and then execute the programs for a few of the following problems: 


(a) The “hello” problem described in Problem 2.62(a). 

(b) The "what's your name?" problem described in Problem 2.62(b). 

(c) The temperature conversion problem described in Problem 2.63(а). 

(d) Тһе piggy-bank problem described in Problem 2.63(5). 

(e) Computation of the volume and area of a sphere, as described in Problem 2.64(a). 

(f) Computation of the mass of air in an automobile tire, as described in Problem 2.64(Ъ). 

(g) Computation of the area of a triangle, areas of the largest inscribed circle and the smallest 
circumscribed circle, as described in Problem 2.64(c). 

(h) The compound-interest problem, as described in Problem 2.64(d). 

(i) Computation of the growth of a bacteria culture, as described in Problem 2.64(e). 


Chapter 4 


Branching and Looping 


The programming problems we have considered so far have been sequential in nature. That is, the 
calculations were always carried out in a fixed order. However, the remarkable versatility of the digital 
computer lies not in its ability to carry out a fixed sequence of calculations in a short period of time. 
Rather, it is the ability of the computer to make logical decisions and then carry out an appropriate set of 
orders, based on the outcome of those decisions, that renders the computer so useful. Let us now turn our 
attention to this important topic. 

We have already learned that unconditional branching operations (i.e., a transfer of control, or 
“jump,” from one part of a program to another) сап be carried out in BASIC by means of the GO 
TO statement (see Section 2.14). Another situation that arises frequently is a transfer to one of two 
different portions of a program, depending on the outcome of a comparison between two quantities. 
Such an operation, called a conditional branch, allows logical decisions to be carried out within the 
computer. 

Looping is another operation that is often required in a computer program. This involves 
repeating some portion of the program either a specified number of times or until some particular 
condition has been satisfied. The repeated portion of the program (the loop) may contain a 
conditional branching operation that determines whether the loop will be terminated or executed at 
least one more time. If the loop is to be executed again, then control is transferred back to the start 
of the loop. Hence the instructions in the repeated portion of the program need not be written more 
than once. 

In this chapter we will see how branching and looping operations can be carried out in BASIC. 
This opens the door to a much broader and more interesting class of programming problems. 


4.1 RELATIONAL OPERATORS 


In order to carry out a conditional branching operation in BASIC we must have a way to express 
conditions of equality and inequality. This is accomplished through the use of the relational operators. 
These operators are 


Equal to: = 
Not equal to: <> 
Less than: < 
Less than or equal to: <= 
Greater than: > 
Greater than or equal to: >= 


The relational operators are used to connect numerical quantities (i.e., numbers, variables or 
formulas) or strings, thus forming conditions that are either satisfied or unsatisfied. 


EXAMPLE 4.1 


Several conditions involving numerical quantities are shown below. Each condition will be either satisfied or 
unsatisfied, depending on the numerical values of the variables. Ç 
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X=27 
N<=0.001 
C>(C1+C2)t2 
A+B<C+D 
P<>Q 
Z>=X*Y 


Thus the last condition will be satisfied if the value of Z is greater than or equal to the value of X*Y; otherwise it 
will be unsatisfied. 


Inequality conditions involving strings are interpreted as “comes before” ог “comes after” rather 
than “less than” or “greater than." Moreover, trailing blanks are ignored when comparing strings. 


EXAMPLE 4.2 


Several conditions involving strings are presented below. Each condition will be either satisfied or 
unsatisfied, depending on the particular strings that are assigned to the string variables. 


N$=“SMITH” 

P$<>Q$ 

C$<G$ 
The first condition will be satisfied if the string assigned to N$ is SMITH; otherwise it will be unsatisfied. The 
second condition will be satisfied only if the string assigned to P$ is different from that assigned to Q$. In 
order for the last condition to be satisfied, the string assigned to C$ must come earlier in an alphabetized list 
than the string assigned to G$. 


4.2 CONDITIONAL BRANCHING—THE IF-THEN STATEMENT 


The IF-THEN statement is used to carry out a conditional branching operation. The statement 
consists of the words IF and THEN, separated by a relation and followed by the number of a remote 
statement. When executing the IF-THEN statement, control will be transferred to the remote statement 
if the relation is satisfied; otherwise, the statement following IF-THEN will be executed next. (Note that 
control can be transferred to any remote statement within a program, including a REM statement.) 


EXAMPLE 4.3 
Shown below is a portion of a BASIC program which includes an IF-THEN statement. 
15? 
50 IF І>-100 ТНЕМ 80 
55 LET 1=1+1 
60 СО ТО 15 
80... 


Тһе manner іп which the program is executed will depend оп the relation 
I>=100 
contained in the IF-THEN statement. If the relation is satisfied (i.e., if the value of I is greater than or equal to 


100), then statement number 80 will be executed next. If the relation is not satisfied (1.е., if the value of I is less 


than 100), then statement number 55 will be executed next. 
Notice the way the IF-THEN statement is used in conjunction with the GO TO statement in this example to 


form a loop. 
Many versions of BASIC allow use of the words GO TO rather than THEN. 


60 BRANCHING AND LOOPING [CHAP. 4 


EXAMPLE 4.4 
Shown below is an IF-GO TO statement involving strings. 
45 IF N$-"SHARON" GO TO 120 


(It should be clear that the use of GO TO rather than THEN has nothing to do with the type of relation, i.e., 
numerical vs. string.) 


EXAMPLE 4.5 Roots of an Algebraic Equation 


Computers are frequently used to solve algebraic equations that cannot be solved by elementary methods. 
Consider, for example, the equation 
x5 +3x?-10=0 
This equation cannot be rearranged to yield an exact solution for x. Hence we will determine the solution bya 
repeated trial-and-error procedure (i.e., an iterative procedure) that successively refines an initially crude guess. 
Computational Procedure 
We begin by rearranging the equation into the form 


5 
х-У10-3х: 


Our procedure will then be to guess а value for x, substitute this value into the right-hand side of the rearranged 
equation and thus calculate a new value for x. This new value will then be substituted into the right-hand side, 
and still another value obtained for x, and so on. The procedure will continue until either the successive values 
of x have become sufficiently close (і.е., the method has converged) or a specified number of iterations has been 
exceeded (thus preventing the computation from continuing indefinitely in the event that the computed results 
do not converge). я * 

To see how the method works, suppose we choose an initial value of x — 1.0. Substituting this value into the 
right side of the equation, we óbtain 


5 
x= М10- 3(1.0} = 1.47577 


We then substitute this new value of x into the equation, resulting in 


5 
x = У10- 3(1.47577} = 1.28225 


Continuing the procedure, we obtain 
s 
Же уло — 3.28225} = 1.38344 
x = V10- 3(1.38344) —.1.33613 


and so on. Note that the successive values for x appear to be converging to some final answer. 


The Program Outline 
In order to write a BASIC program outline, let us define the following symbols. 
X = the value of x substituted in the right-hand side of the equation 
X1 = the newly calculated value of x E 
I= an iteration counter (I will increase by one unit at each successive iteration) 


N = the maximum permissible number of iterations. 


We will continue the computation until either (a) the difference in successive values of x becomes less than 
0.00001, or (5) the iteration counter (I) has reached its maximum allowable value (N). 
We can now write an outline of our BASIC program as follows: 


1. Read X, N 
2. Initialize the counter (set I=1). 


3. Compute a value for X1 using the formula 
X1-(10-3*X12)1.2 


т". 


rt 


w 


+. 


M 


v 


CHAP. 4] BRANCHING AND LOOPING 61 


4. Print the newly calculated values for I and X1. (By printing out the results of each iteration in this 
manner, we can actually see whether or not the computation is converging.) 


5. Test to see if|X—X1| (i.e., the absolute value of successive differences in the values of x) is less than 0.00001. 
(a) If |X—X1|<0.00001, then go to step 7 (print final answers). 
(b) If |X—X1|=0,00001, then proceed to step 6 below. 

6. Test to see if I=N (note that the value of I will be less than N in the early stages of the computation). 
(a) If I=N, then go to step 8 (print a message indicating that the computation has not converged). 


(b) If I<N, then increase I by one unit (i.e., 1=1+1), let the recently calculated value for X1 be called X 
and go back to step 3, thus beginning the next iteration. 


7. Print the final values of X1 and I, and then go to step 9 (stop). 
8. Print a message indicating that the computation has not converged, followed by the most recent value for I 
and N. 


9. Stop. 


A flowchart of the computational procedure is shown in Fig. 4.1. 


0.00001? 


The BASIC Program 

In Fig. 4.2 we see a complete BASIC program that corresponds to the above outline and flowchart. The 
program contains two IF statements, in lines 60 and 70. (For illustrative purposes both the IF-THEN and the 
IF-GO TO forms have been used.) Notice that the program reads in an initial value for X and a value for N, but 
the convergence criterion (і.е., the value 0.00001) is a fixed constant within the program. The convergence 
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criterion could have been treated as an input quantity if we had wished. Also, notice the use of the letters ABS 
in line 60. This refers to a BASIC library function that determines the absolute value of the quantity (X—X1). 
(We will discuss library functions in Chapter 5, Section 5.1) Finally, we see that we could have experienced some 
difficulty with this program if the formula 


10-3«X12 


in line 40 resulted in a negative quantity. A test for such a condition could have been included in the program. 
Notice that the input information is underlined. 


>LIST 


EX4.5 17:51 O3-MAR 


REM AN ITERATIVE METHOD FOR COMPUTING ROOTS OF AN EQUATION 
INPUT X,N 
PRINT 
LET I=1 
LET Х1=(10-5%Х^2)^.2 
PRINT "I=";I,"X1=";X1 
IF ABS(X-X1)<.00001 THEN 110 
IF I=N GOTO 160 
LET X-X1 
LET I=I+1 
GOTO 40 
PRINT 


120 PRINT “THE FINAL ANSWER IS X ="; X1 

150 PRINT 

140 PRINT "NUMBER ОҒ ITERATIONS REQUIRED ="; 1 
150 ВОТО 190 


160 PRINT 
165 PRINT “COMPUTATION НАЗ МОТ CONVERGED AFTER "313" ITERATIONS" 
170 PRINT 

180 PRINT "LAST VALUE OF X =";Х1 
190 END 

>RUN 

ЕХ4.5 17:52 O3-MAR 
71, 25 

I= 1 X1= 1.47577 

I= 2 X1= 1.28225 

I= 5 Хі= 1.38344 

I= 4 Хіз 1.33613 

I= 5 Х1= 1.35951 

I= 6 Х1= 1.34826 

I= 7 Хі= 1.35375 

I= 8 X1= 1.35109 

I= 9 X1= 1.35238 

I= 10 X1= 1.35175 

Іс 11 X1= 1.35206 

I= 12 X1= 1.35191 

1= 13 Х1= 1.35198 

I= 14 X17 1.35195 

1= 15 X17 1.35196 

I= 16 X1= 1.35195 


THE FINAL ANSWER IS X = 1.35195 


NUMBER OF ITERATIONS REQUIRED = 16 


TIME: 0.36 SECS. 


Fig. 4.2 
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Following the program listing we see a set of output that is generated for an initial guess of x = 1.0. Notice 
that the computation has converged to the solution x = 1.35195 after 16 iterations. From the printed output we 
can actually see the successive values of x become closer and closer, leading to the final converged solution. 

Figure 4.3 shows the output that is generated when convergence is not obtained. In this case we have 
specified a maximum value of only 10 iterations (N=10), which is not sufficient to obtain a converged solution 
from the starting value x = 1.0. The lack of convergence is clearly indicated by the printed message. 


>RUN м 
ЕХ4.5 17:55 OS-MAR 
71, 10 

Ізі X1= 1.47577 

І- 2 Х1= 1.28225 

I= 3 X1= 1.38344 

I= 4 X1= 1.33613 

I= 5 X1= 1.35951 

I= ó X1= 1.34826 

I= 7 X1= 1.35375 

I= 8 X1= 1.35109 

I= 9 X1= 1.35238 

I= 10 X1= 1.35175 


COMPUTATION HAS NOT CONVERGED AFTER 10 ITERATIONS 


LAST VALUE OF X = 1.35175 


TIME: 0.26 SECS. 
Fig. 4.3 


4.3 MULTIPLE BRANCHING—THE ON-GO TO STATEMENT 


Multiple branching can be carried out in BASIC by means of the ON-GO TO statement. This 
statement contains a numeric variable or formula and two or more numbers of remote statements. 
Control will be transferred to the first remote statement if the variable or formula has a value of 1, to 
the second remote statement if the variable or formula has a value of 2, etc. 


EXAMPLE 4.6 
A typical ON-GO TO statement is shown below. 
30 ON K GO TO 15,40,25,40,60 


Control will be transferred to statement number 15 if K has a value of 1, to statement 40 if K has a value of 2 or 
4, to statement 25 if K equals 3 and to statement 60 if K equals 5. 


If the variable or formula has a value that is not integral, then the decimal portion of the number 
will be ignored (i.e., the number will be truncated). 


EXAMPLE 4.7 


Suppose the variable K in Example 4.6 had been assigned a value of 3.67. The .67 would be ignored, and K 
would be considered to have a value of 3. Hence control would be transferred to statement number 25. 
Notice that the value originally assigned to K has been truncated—not rounded. 


Most versions of BASIC allow the use of the word THEN in place of GO TO. 
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EXAMPLE 4.8 
A typical ON-GO TO statement is shown below. 
50 ON А!2+В12 GO TO 20,150,180 
In most versions of BASIC the above statement could also be written as 


50 ON At2+Bt2 THEN 20,150,180 


4.4 THE STOP STATEMENT 


The STOP statement is used to terminate the computation at any point in the program. It is 
equivalent to a GO TO statement that transfers control to the END statement. The statement 
consists simply of a statement number followed by the word STOP. 

It is important to understand the distinction between the STOP and END statements. The STOP 
statement can appear anywhere in a BASIC program except at the very end. More than one STOP 
statement may appear. On the other hand, the END statement cannot appear anywhere except at the 
end of the program, hence it cannot be used more than once in any given program. (Recall that every 
BASIC program must end with an END statement.) 

The use of the STOP statement, as well as the ON-GO TO statement, is illustrated in Example 
4.9 below. 


EXAMPLE 4.9 Calculating Depreciation 


Let us consider how to calculate the yearly depreciation for a depreciable. item (e.g., a building, piece of 
machinery, etc.). There are three different methods for calculating depreciation, known as the straight-line 
method, the double declining balance method and the sum -of-the-years'-digits method. We wish to write a 
BASIC program that will allow us to select any one of these methods for each set of calculations. 


Computational Procedure 


The computation will begin by reading in the original (undepreciated) value of the item, the life of the item 
(the number of years over which it will be depreciated) and an integer that indicates which method of 
depreciation will be used. The yearly depreciation and the remaining (depreciated) value of the item will then be 
calculated and printed out for each year. 

The straight-line method is the simplest to use. In this method the original value of the item is divided by its 
life (total number of years). The resulting quotient will be the amount by which the item depreciates each year. 
For example, if an $8000 item is to be depreciated over 10 years, then the annual depreciation would be 
$8000 + 10 = $800, and the item would decrease by $800 every year. Notice that the annual depreciation is the 
same each year. Я 

When using the double declining balance method, the value of the item will decrease by a constant 
percentage each year. (Hence the actual amount of the depreciation, in dollars, will vary from one year to the 
next.) To obtain the depreciation factor we divide 2 by the life of the item. This factor is multiplied by the value 
of the item at the beginning of each year (not the original value of the item) to obtain the annual depreciation. 

Suppose, for example, that we wish to depreciate an $8000 item over 10 years, using the double declining 
balance method. The depreciation factor will be 2+ 10 = 0.20. Hence the depreciation for the first year will be 
0.20 x $8000 = $1600. The second year’s depreciation will be 0.20 x ($8000 — $1600) = 0.20 x ($6400) = $1280; the 
third year’s depreciation will be 0.20 x $5120 = $1024; and so on. 

In the sum-of-the-years’-digits method the value of the item will decrease by a percentage that is different 
each year. The depreciation factor will be a fraction whose denominator is the sum of the digits from 1 to N, 
where N represents the life of the item (e.g., for a 10-year lifetime the denominator will be 1+2+3+...+ 9+ 
10 = 55). For the first year the numerator will be М, for the second year it will be (N — 1), for the third year 
(М - 2), and so on. The yearly depreciation is obtained by multiplying the depreciation factor by the original 
value of the item. 

To see how the sum-of-the-years’-digits method works, we again depreciate an $8000 item over 10 years. 
The depreciation for the first year will be (10/55) x $8000 = $1454.55; for the second year it will be (9/55) x 
$8000 = $1309.09, and so on. 


CHAP. 4] BRANCHING AND LOOPING 65 


Тһе Program Outline 
We begin by defining the following symbols. 

V = the value of the item 

N = the number of years over which the item will be depreciated (the lifetime) 

I= ап integer that indicates which methods will be used to calculate the depreciation 
(а) Іі indicates straight-line depreciation 
(b) 1=2 indicates the double declining balance method 
(c) І-3 indicates the sum-of-the-years’-digits method 

J — a counter that indicates which year is currently being considered 

D1,D2,D3 - the annual depreciation calculated by each of the three methods 


Our BASIC program will follow the outline presented below. 


Read V,N,I 
Print a message indicating which method will be used to calculate the depreciation. 
Set J=0 
Calculate D1= V/N 
КОЛУ. 
~ Nx(N+1)/2 
[F1 is used in the sum-of-the-years’-digits method. Note that the sum of the digits 1+2+3+ +: + М is 
equal to N«(N--1)/2.] 
5. Increment J (i.e., J=J+1). 
6. Calculate the yearly depreciation and the new value for the item by the appropriate method, and print 
the results. 
(a) If I=1, then: 
(i) Calculate V- V-D1 
(ii) Print DI, V 
(іі) If J<N, go to step 5; otherwise, stop. 
(b) If I=2, then: 
(i) Calculate D2=(2/N)*V 
У=У-р2 
(i) Print J,D2,V 
(іі) If J<N, go to step 5; otherwise, stop. 
(c) IfI=3, then: 
() Calculate F2=N-J+1 
D3=F1*F2 
V-V-D3 
(ii) Print J,D3,V 
(iii) If J<N, go to step 5; otherwise, stop. 
A corresponding flowchart is shown in Fig. 4.4. 


Popre 


F1 


The BASIC Program 

In Fig. 4.5 we see a complete BASIC program for carrying out the computation. Notice that the program 
contains two ON-GO TO statements, in lines 90 and 210. (We could just as easily have used ON-THEN; the 
logic would have been identical.) Each of these statements provides us with a conditional three-way branch in this 
particular problem. We also see the use of the STOP statement in lines 340 and 450. As an alternative we could 


havé written GO TO 560 in place of the STOP statements. 


READ 
V,N,I 
1=1 1=3 
PRINT PRINT PRINT 
MESSAGE MESSAGE MESSAGE 
J=0 


D1-V/N 
F1- 
УДМ*(№+1)/2) 


р2=(2/№)*у 
V=V-D2 
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10 REM COMPUTATION OF DEPRECIATION BY THREE DIFFERENT METHODS 
20 PRINT "V="; 

50 INPUT V 

40 PRINT "Nz"; 

SO INPUT N 

60 PRINT "Iz"; 

70 INPUT I 

80 PRINT 

90 ON I GOTO 100,120,140 

100 PRINT "STRAIGHT-LINE METHOD" 

110 GOTO 150 

120 PRINT "DOUBLE DECLINING BALANCE METHOD" 
130 GOTO 150 

140 PRINT "SUM-OF-THE-YEARS'-DIGITS METHOD" 
150 PRINT 

160 PRINT "END OF YEAR","DEPRECIATION","CURRENT VALUE" 
170 LET 4-0 

180 LET D1=V/N 

190 LET FizV/(N*(N*1)/2) 

200 LET J=J+1 

210 ОМ I GOTO 300,400,500 


300 REM STRAIGHT-LINE METHOD 


310 LET V=V-D1 
320 PRINT J,D1,V 
330 IF J«N THEN 200 
340 STOP 


400 REM DOUBLE DECLINING BALANCE METHOD 


410 LET D2=(2/N)*V 
420 «ЕТ VzV-D2 

430 PRINT J,D2,V 
440 IF 1<М THEN 200 
450 STOP 


500 REM SUM-OF-THE-YEARS'-DIGITS METHOD 


510 LET F2=N-J+1 
520 LET D3=F1*F2 
550 LET V-V-D3 

540 PRINT J,D3,V 
550 IF J<N THEN 200 
560 END 


Fig. 4.5 


Figures 4.6(a), (b) and (c) show the output that is obtained with the straight-line method, the double 
declining balance method and the sum-of-the-years’-digits method, respectively. In each case we are depreciating 
an item whose initial value is $8000 over a 10-year lifetime. (The input data are underlined.) 

Notice that the last two methods results in a large annual depreciation during the early years but a very 
small annual depreciation in the last few years of the item's lifetime. Also, we see that the item has a value of 
Zero at the end of its lifetime when using the first and third methods, but a finite value remains when using the 
double declining balance method. (The appearance of the number 2.47955Е-5 rather than zero іп Fig. 4.6(c) is 


caused by numerical roundoff errors.) 


4.5 BUILDING A LOOP—THE FOR-TO STATEMENT 


We have already seen that a loop can be built in BASIC by using the IF-THEN and the GO TO 
statements. This is convenient when it is not known in advance how many times the loop must be 
repeated. Often, however, we do know in advance how many times a loop should be executed. 


BRANCHING AND LOOPING [CHAP. 4 


STRAIGHT-LINE METHOD 
END OF YEAR DEPRECIATION CURRENT VALUE 


1 800 7200 
2 800 6400 
3 воо 5600 
4 800 4800 
5 800 4000 
6 800 3200 
7 воо 2400 
в воо 1600 
9 800 800 
10 800 о 


TIME: 0.45 SECS. 
(a) 

У= 78000 

N= 710 

I= 22 

DOUBLE DECLINING BALANCE METHOD 


END OF YEAR DEPRECIATION CURRENT VALUE 


1 1400 6400 

2 1280 5120 

3 1024 4096 

^ 819.2 3276.8 
5 655.56 2621.44 
6 524.288 2097.15 
7 419.45 1677.72 
8 555.544 1542.18 
9 268.435 1073.74 
10 214.748 858.995 


TIME: 0.43 SECS. 
(b) 


V= 78000 

N= 210 

t= 23 

SUM-OF-THE-YEARS'-DIGITS METHOD 


END OF YEAR DEPRECIATION CURRENT VALUE 


1 1454.55 6545.45 
2 1309.09 5236.36 
3 1163.64 4072.73 
4 1018.18 3054.55 
5 872.727 2181.82 
6 727.273 1454.55 
7 581.818 872.727 
в 436.364 436.364 
9 290.909 145.455 
10 145.455 2.47955Е-5 


TIME: 0.31 SECS. 
(с) 
Fig. 4.6 
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Under these circumstances the loop can be built most easily by using the FOR-TO and the NEXT 
statements. 

The FOR-TO statement specifies how many times the loop will be executed. It must always be 
the first statement in the loop. Included in the FOR-TO statement is a nonsubscripted (ordinary) 
numeric variable, called the running variable, whose value changes each time the loop is executed. The 
number of executions is determined by specifying initial and final values for the running variable. 


EXAMPLE 4.10 
A typical FOR-TO statement is shown below. 
50 FOR I=1 TO 10 


In this example I is the running variable. The first time the loop is executed, 1 will be assigned a value of 1. I will 
increase by one unit each time the loop is repeated, until it has reached its final value of 10 during the last 
execution. The execution will be terminated once I has exceeded its final value of 10. Hence the loop defined by 
the above FOR-TO statement will be executed 10 times. 


The running variable will always increase by one unit if the FOR-TO statement contains no 
instructions to the contrary. We can, however, increment the running variable by some value other 
than 1 if we wish. This is accomplished by adding a STEP clause to the FOR-TO statement, as 
illustrated in the next example. 


EXAMPLE 4.11 


Suppose we want to execute a loop 50 times, and we require that the running variable increase by two units 
after each successive execution. We could write 


75 FOR J=1 TO 99 STEP 2 


Thus the running variable J would be assigned a value of 1 during the first pass, a value of 3 during the second 
pass, 5 during the third pass, etc., until J would take on a value of 99 during the 50th (last) pass. 


The running variable need not be restricted to positive integer values; it can take on negative and 
fractional values if desired. Furthermore, the running variable can be made to decrease with each 
successive execution of the loop. (This is accomplished by specifying a negative quantity in the STEP 
clause.) Finally, the initial, final and STEP values assigned to the running variable can be expressed as 
variables or formulas as well as numbers. 


EXAMPLE 4.12 


Shown below are several illustrations of valid FOR-TO statements. 


30 FOR Х=-1.5 ТО 2.7 STEP 0.1 

15 FOR I=N TO 0 STEP -1 

55 FOR K=N1 ТО N2 STEP N3 

80 FOR F=A/2 TO (B+C)t2 STEP К+1 


Some versions of BASIC allow use of the word BY rather than STEP. 


EXAMPLE 4.13 
In some versions of BASIC the FOR-TO statement shown in Example 4.11 could also be written as 


75 FOR J=1 TO 99 BY 2 


4.6 CLOSING A LOOP—THE NEXT STATEMENT 


Just as a loop always begins with a FOR-TO statement, it always ends with a NEXT statement. 
The complete loop comprises all statements included between the FOR-TO and the NEXT 


statements. 
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The NEXT statement consists of a statement number followed by the keyword NEXT, followed 
by arunning variable name. This running variable must be the same as the running variable that appears 
in the corresponding FOR-TO statement. 


EXAMPLE 4.14 
Shown below is the skeletal structure of a loop that is built using the FOR-TO and NEXT statements. 
50 FOR I=1 TO 10 


90 NEXT I 


The loop will consist of all statements from statement number 50 to statement number 90, and it will be 
executed 10 times. 


Several rules must be kept in mind when constructing a FOR-TO ... NEXT loop. These rules are 
summarized below. 


1. The running variable can appear in a statement inside the loop, but its value cannot be 
altered. 


2. И the initial and final values of the running variable are equal and the step size is nonzero, 
then the loop will be executed once. 


3. The loop will not be executed at all under the following three special conditions. 
(a) The initial and final values of the running variable are equal, and the step size is zero. 


(b) The final value of the running variable is less than the original value, and the step size is 
positive, 


(c) The final value of the running variable is greater than the original value, and the step size is 
negative. 


(Usually the conditions described in rules 2 and 3 occur only by accident.) 


4. Control can be transferred out of a loop but not in. (The transfer out can be accomplished by 
a GO TO, IF-THEN or ON-GO TO statement.) 


EXAMPLE 4.15 
Consider the skeletal structure of the loop shown below. 


120 FOR Х=0 TO 0.5 STEP 0.01 


165 LET Z=X+Y 


170 IF Z>Z1 THEN 250 
195 NEXT X 


250 PRINT X,Y,Z 


This example illustrates the use of the running variable (X) within the loop (specifically, in statement 165). We 
also see that statement 170 causes control to be transferred outside the loop if the value of Z is greater than the 


value of Z1. Finally, we see that the running variable that appears in the NEXT statement (X) is the same as the 
running variable in the FOR-TO statement, as required. 


Notice that the statements within the loop, between FOR-TO and NEXT, are indented to the right. This is 


not required but it is good programming practice, since the indentation allows the statements within the loop to 
be easily identified. 


t The ЕОК-ТО... NEXT loop structure is frequently used in many different types of problem 
situations. A typical problem involving the use of such a loop is shown in the example below. 
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EXAMPLE 4.16 Averaging of Air Pollution Data 


The level of air pollution can be expressed in terms of the air quality, i.e., the number of particles of a 
particular pollutant per cubic centimeter of air. Hence the higher the value for air quantity, the greater the 
pollution level. Measurements of air quality are made several times a day in most large cities." 

Suppose we are given a table containing N measurements of air quality at different times during the day, as 
shown in Table 4.1. (Note that the time is given in 24-hour cycles, i.e., 13:00 refers to 1:00 p.m. Also, note that 
N=20 in this example.) We would like to calculate an average (mean) value of air quality for the entire period. 
This can be accomplished by first calculating an average value for each time interval (i.e., the time period 
between successive readings) and then calculating a weighted overall average from the individual averages. 


Table 4.1 


Air Quality Air Quality 


Computational Procedure 
Let us first introduce the following symbols. 


Т1 = the time at the start of a given time interval 
Т2 = the time at the end of the given time interval 
Q1 = the air quality at the start of the given time interval 
Q2 = the air quality at the end of the given time interval 
Q3 = the average air quality within the given time interval 
The computation will proceed as follows. 
l. Calculate the average air quality within each time interval using the formula 
Q3=(Q1+Q2)/2 

2. Multiply each average air quality by the corresponding time interval (T2-T1) and add up all of these 

products, i.e., 


S=[Q3*(T2-T1)]: + [О3*(Т2-Т1)}+ - - - +[Q3*(T2-T1)]n-1 


In the above formula S refers to the sum of the individual products, and the subscripts 1, 2,..., N—1 
refer to the various time intervals. (Note that there will be N—1 time intervals, since there are N values 
of Q and T.) 


3. Divide this sum by the overall time interval (the time of the last reading minus the time of the first 
reading) to obtain the time-averaged value. 


A=S/(T9-T0) 
where A refers to the time-averaged air quality, and TO and T9 refer to the times of the first and last 
readings, respectively. 
(The reader who has studied numerical calculus will recognize this problem as an elementary exercise in 
numerical integration. The method is known as the trapezoidal rule.) 
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Тһе Program Outline , 


We can now write the following detailed outline of the computational procedure. 


T 


2. 
3. 
4 


6. 
7; 
8 


9; 


Read М. 
Set S equal to zero before reading апу of (һе actual data. 
Read the first set of data (i.e., the initial values for T1 and О1). 


Set TO equal to ТІ. (This is a way of “tagging” the time of the first reading. We will need this value in 
step 7 below.) 


Perform the following calculations (N—1) times. 
(a) Read T2 and Q2. 

(b) Calculate O3. 

(c) Add the product QO3*(T2- T1) to S. 


(d) Set T1 equal to T2 and Q1 equal to Q2 in preparation for the next time interval. (In other words, 
the values for T and Q at the end of a given time interval become the values for T and Q at the 
start of the next time interval.) 


Set T9 equal to the last value of T2. 

Calculate A. 

Print А and the overall time interval, (T9— TO). 
Stop. 


A flowchart corresponding to the above outline is shown in Fig. 4.7. Notice that the FOR-TO... NEXT 
loop is enclosed within a dashed rectangle. 


START 
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The Basic Program 


Figure 4.8 shows a complete BASIC program that corresponds to the outline presented above. We see that 
the cumulative sum S is formed by the FOR-TO . . . NEXT loop consisting of statements 100 through 160. Notice 
that the program does not require that the complete list of input data be stored internally in order to calculate 
this cumulative sum. (We will see a convenient way to store a complete list, if we should choose to do so, in the 
next chapter.) 


10 REM AVERAGING OF AIR POLLUTION DATA 
20 PRINT "N="; 

30 INPUT N 

40 LET 8=0 

50 PRINT 

60 PRINT" T Q 

70 PRINT 

ВО INPUT T1,01 

90 LET TO-Ti 

100 FOR I=1 TO N-1 

110 INPUT Т2,02 

120 LET Q3=(Q1+02)/2 
130 LET S-S403*(T2-T1) 
140 LET Ti=T2 

150 LET 01=02 

160 NEXT I 

170 LET T9=T2 

180 LET A=S/(T9-TO) 

190 PRINT 

200 PRINT "AVERAGE AIR QUALITYz";A; "TIME INTERVAL=";T9-TO; "HOURS" 
210 END 


>RUN 


EX4.16 21:58 14-MAR 


N= 720 


724, 28.7 
AVERAGE AIR QUALITY= 41.5354 TIME INTERVAL= 24 HOURS 


TIME: 0.43 SECS. 
Fig. 4.8 
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The lower portion of Fig. 4.8 shows the input values and the calculated results corresponding to the data in 
Table 4.1. We see that the overall average air quality is 41.5 for the given 24-hour period. (Note that the answer 
will not be accurate to more than three significant figures, since this is the accuracy of the input data.) The input 
information is underlined. 


4.7 NESTED LOOPS 


One loop can be embedded with another (i.e., nested) if desired. In fact, there can be several 
levels of nesting. The rules for writing single loops also apply to nested loops. In addition, the 
following restrictions must be observed. 


1. Each nested loop must begin with its own FOR-TO statement and end with its own NEXT 
statement. 
2. An outer loop and an inner (nested) loop cannot have the same running variable. 


3. Each inner (nested) loop must be completely imbedded within an outer loop (i.e., the loops 
cannot overlap). 


4. Control can be transferred from an inner (nested) loop to a statement in an outer loop or to а 
statement outside of the entire nest. However, control cannot be transferred to a statement 
within a nest from a point outside the nest. 


EXAMPLE 4.17 
Shown below is the skeletal structure of a program containing a nested loop. 


100 FOR I=0 TO N STEP 2 
120 FOR J-I TON 
160 NEXT 1 

200 NEXT I 


Notice that the inner loop (statements 120 through 160) is completely imbedded within the outer loop 
(statements 100 through 200). Each loop begins and ends with its own FOR-TO and NEXT statements, and each 
loop has its own running variable. Note, however, that the running variable of the outer loop (I) is used as the 
initial oalue tor the running variable of the inner loop (J). This is permissible, since the value of I is not altered 
within the inner loop. 


A nest of loops provides a convenient means of carrying out repeated sets of calculations. An 
example follows. 


EXAMPLE 4.18 Generation of Fibonacci Numbers and Search for Primes 


The Fibonacci numbers are members of an interesting sequence in which each number is equal to the sum 
of the previous two numbers. In other words 


Fı = Fi-1 + Fi-2 


where Е; refers to the ith Fibonacci number. The first two Fibonacci numbers are defined to equal 1, i.e., 


Hence 
F3=F,+ F;=1+1=2 
Е = Ез+Е,=2+1=3 
Fs=F,+ F3=3+2=5 


and so on. 


CHAP. 4] BRANCHING AND LOOPING 75 


All of the Fibonacci numbers are positive integer quantities, and some of them will be primes. A prime number is 
a positive integer that is divisible, without a remainder, only by 1 or by itself. For example, 5 is a prime number 
because the only quantities that can be divided evenly into 5 are 1 and 5. On the other hand, 8 is not a prime because 8 
is divisible by 2 and 4 as well as by 1 and 8. 


Computational Procedure 


It is very easy to calculate the first N Fibonacci numbers using the above formula. However, the procedure 
for determining whether or not a number is prime requires some explanation. 

Suppose we want to determine if a given integer whose value is greater than 2 can be divided evenly by a 
smaller integer. Let us call the given integer F and the divisor J. The procedure is to calculate a quotient, Q, as 


Q=F/J 
We then calculate a truncated quotient, О1, as 
Q1-INT(O) 
The letters INT refer to a BASIC library function that will determine the largest integer that does not exceed O. 


(We will say more about BASIC library functions in the next chapter.) Thus if Q has a value of 5.3, then O1 will 


have a value of 5. 
If O and Q1 have the same value, then F is evenly divisible by J. Furthermore, if F is evenly divisible by any 


value of J, from J=2 to J -INT(VF), then F cannot be prime. Hence F will be a prime number only if Q and 
Q1 are not equal for 1-2,3,..., ІМТ(УЕ). 


Тһе Program Outline 
Let us refer to F as a given Fibonacci number (i.e., F,), F1 as the previous Fibonacci number (Fi-1) and F2 
as the second previous Fibonacci number (Fi-2). We can now write an outline of our program as follows. 


1. Read N. 
2. Set F1 and F2 equal to 1. 
3. Print F1 and F2, identifying each as a prime. 
4. Do the following calculations for 1-3, 45.25, N. 
(a) Calculate a value for F using the formula 
F=F1+F2 
(b) Do the following for 7-2,3,..., R, where R is the largest integer that does not exceed VF. (Test 
for a prime number.) 
6) Calculate values for Q and Q1, and test to see if they are equal. 
(Gü) If Q and Q1 are equal for any value of J, then F cannot be a prime number. Hence print I 
and F, and proceed directly to step 4(c) below. 
(іі) If Q and O1 are unequal for all values of J, then F must be a prime number. Hence print I 
and F, identifying F as a prime, and proceed to step 4(c) below. 
(c) Update F1 and F2 (i.e., assign the current value of F1 to F2, then assign the current value of F to 
F1), in preparation for calculating a new Fibonacci number (i.e., a new value for F). 
5. Stop. 


A corresponding flowchart is shown in Fig. 4.9. 


The BASIC Program 


A complete BASIC program 
program contains a nest of loops. The 
each Fibonacci number is a prime, wl 


corresponding to the above outline is shown in Fig. 4.10. Notice that the 
purpose of the inner loop (statements 130-170) is to determine whether or not 
hereas the outer loop (statements 110-230) causes the desired sequence of 
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START 


Q-F/J 
Q1-INT(Q) 


| reum ST аш PG қоны x ep d таз! 


LF 
(UNPRIME) 


о пни. ый eM РИ ВЕ Зи ЖЖЖ ER. Pd EN 


Fibonacci numbers to be generated. Notice the use of the library function SOR (in line 130), which is used to 
obtain the square root of F (see Section 5.1). Also, note the conditional transfer of control out of the inner loop 
when Q = О1 (statement 160). 

The lower portion of Fig. 4.10 shows the output that is generated when the program is executed for a value 
of N = 30. We see that 11 of the first 30 Fibonacci numbers are primes. (Note that the user's responses are 
underlined.) 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 


>RUI 


ЕХ4 
N= 


GENI 


КЕМ GENERATION ОҒ FIBONACCI NUMBERS AND SEARCH FOR FRIMES 


PRINT "N="; 

INPUT N 

PRINT 

PRINT "GENERATION OF FIBONACCI NUMBERS AND SEARCH FOR PRIMES" 


PRINT 


LET Fi=1 
LET F2= 
PRINT "“I="31,"F="315" (PRIME) " 
PRINT "I="32,"F="31;" (PRIME)" 
FOR I=3 TO N "(GENERATE FIBONACCI NUMBERS) 
LET F=F1+F2 
FOR 1-2 TO INT(SGR(F)) * (TEST FOR А PRIME NUMBER) 
LET Q-F/J 
LET 01=ІМТ (0) 
IF 0=01 THEN 200 
NEXT J 
PRINT "Iz"; I,"F-";F;" (PRIME)" 
GOTO 210 
PRINT "Iz"; I,"F-";F 
LET F2-F1 
LET F1-F 
NEXT I 
END 
IN 
.18 09:26 15-МАК 
эзо 
ERATION OF FIBONACCI NUMBERS AND SEARCH FOR PRIMES 
1 F= 1 (PRIME) 
2 F= 1 (PRIME) 
Ж F= 2 (PRIME) 
4 F= $ (PRIME) 
= F= 5 (PRIME) 
6 F= 8 
7 F= 15 (PRIME) 
в F= 21 
9 Е- 54 
10 Е= 55 
11 F= 89 (PRIME) 
12 F= 144 
13 F= 233 (PRIME) 
14. F= 377 
15 F= 610 
16 F- 987 
17 F= 1597 (PRIME) 
18 F= 2584 
19 F= 4181 
20 F= 6765 
21 Е= 10946 
22 Е= 17711 
= 25 Е= 28657 (PRIME) 
24 F= 46368 
= 25 F= 75025 
26 F= 121393 
27 F= 196418 
28 F= 317811 
29 F= 514229 (PRIME) 
= 30 F= 832040 
E: 0.35 SECS. 


Fig. 4.10 
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Review Questions 


Is logical decision making an important attribute of a digital computer? Explain the reasons for your 
answer. 3 


What is meant Бу а transfer of control within а BASIC program? 


What is a conditional branching operation? How does this operation differ from an unconditional 
branching operation? 


What is a looping operation? What is the purpose of such an operation? 
Name the six relational operators used in BASIC. What is their purpose? 
What is the purpose of the IF-THEN statement? 


Summarize the rules for writing an IF-THEN statement, and explain what happens when this statement 
is executed. 


How does the IF-THEN statement differ from the GO TO statement? Can these two statements be used 
together to carry out a common logical operation? 


What is meant by an iterative procedure? 
What is the purpose of the ON-GO TO statement? 
How does the ON-GO TO statement differ from the IF-THEN statement? 


Summarize the rules for writing an ON-GO TO statement, and explain what happens when this 
statement is executed. 


Exactly what happens to a number when it is truncated? 
What is the purpose of the STOP statement? How does this statement differ from an END statement? 


What is the purpose of the FOR-TO statement? What is the purpose of the running variable? The STEP 
clause? 


Can the running variable in a FOR-TO statement take on fractional or negative values? 
Can the running variable be made to decrease in value with each successive execution of the loop? 


What is the purpose of the NEXT statement? What is required of the running variable that appears in 
this statement? 


Indicate two different ways that a loop can be structured in BASIC. For what kind of situation is each 
type of loop best suited? 


Can the running variable appear in a statement that is contained within a FOR-TO...NEXT loop? Can 
the value of the running variable be altered in such a statement? 


Under what conditions will a FOR-TO ... NEXT loop be executed only once? Not at all? 


What restrictions apply to a transfer of control into or out of a FOR-TO... NEXT loop? 
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4.25 


4.26 


4.27 


4.28 


Why are the statements that appear іп а ЕОВ-ТО...МЕХТ loop frequently indented? 15 such 
indentation necessary? 


What is meant by nested loops? 


Summarize the rules that apply to a nest of ЕОК-ТО... NEXT loops. Compare with the rules that apply 
to a single such loop. 


Solved Problems 


Each of the following is a condition that involves the use of relational operators. Identify 
which, if any, are written incorrectly. 


Condition Error 


X-"DATE" A numeric variable cannot be compared with a string. 
К12>-100 Correct. 


N$<>A+B A string variable cannot be compared with a numeric quantity. 
P$-'123456" Correct. 
T$-R$*S$ Arithmetic formulas involving strings or string variables are not allowed. 


Several IF-THEN statements are shown below. Identify which, if any, are written incorrectly. 


Statement Error 

20 IF Kt2>=100 THEN 50 Correct. 

20 IF (Kt2>=100) THEN 50 Correct. 

20 IF Kt2>=100 GO TO 50 Not all versions of BASIC allow use of GO TO in place of 
THEN. 

65 IF X+Y<>Z THEN М The statement number to which control is transferred must be 


a positive integer, not a variable. 


100 IF G$-"MAY 13" THEN 45 Correct. 
35 GO ТО 150 IF 1-3 Incorrect grammatical structure (statement must begin with IF). 


50 IF X1<=50 THEN X=X+5 Possible incorrect grammatical structure. (In the older, more 
traditional versions of BASIC, THEN must be followed by a 
line number. However, most current versions of BASIC allow 
THEN to be followed by other statements, as shown. Thus, 
the statement may be correct.) 


The skeletal structures of several IF-THEN ... GO TO loops are shown below. Identify 
which, if any, are written incorrectly. 


(a) 20... 
60 IF N>N1 THEN 110 


85 LET N=N+1 
90 GO TO 20 


110: 


Correct. 


80 


(b) 35 LET P=0 


30. 

75 IF P<=0 THEN 125 
80 GO TO 50 

1254. 
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Control will always be transferred to statement 125, since P is initially assigned a value of zero 


and this value is not subsequently altered. 


(c) 15... 


45 INPUT X 
50 IF Х<50 THEN 90 


85 STOP 
110 GO TO 15 
Correct. 
(d) 110 С-5 
ПО 


160 IF С<=0 ТНЕМ 200 
170 С=С+5 
180 СО ТО 130 


Тһе loop will continue indefinitely, since C will never be less than ог equal to zero. 


4.29 Several ON-GO TO statements are shown below. Identify which, if any, are written 


incorrectly. 


Statement 
15 ОМ X3 СО TO 25,15,25,40 
100 ОМ 2*(C1+C2)/N СО ТО K1,K2,K3 


55 ОМ J+K THEN 120,90,150 
80 ОМ T GO TO 25 
20 ON N$ GO TO 50,70,50,90 


60 ON P(I) GO TO 10,120 


Error 

Correct. 

The statement numbers to which control is transferred 
must be positive integers, not variables. 

Not all versions of BASIC allow use of THEN in place 
of GO TO. 

At least two different statement numbers must be 
given. 

A string variable cannot appear in an ON-GO TO 
statement. 


Correct. (Note that P(I) is a subscripted variable. We 
will discuss subscripted variables in Chapter 5.) 
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4.30 Several FOR-TO statements are shown below. Identify which, if any, are written incorrectly. 


431 


Statement Error 


20 FOR N=J TO 3*(К+1) STEP Л Correct. 
50 FOR N=0 TO -100 STEP -5 Correct. 


75 FOR Х(1)-1 TO 100 A subscripted variable cannot be used as a running 
variable. 

35 FOR К=К! TO 100 STEP K1 Correct. 

65 FOR N$-1 TO 19 STEP 2 A string variable cannot be used as a running variable. 

100 FOR I-J TO K STEP I The running variable cannot appear in the STEP 
clause. 


The skeletal structures of several FOR-TO ... NEXT loops are shown below. Identify which, 
if any, are written incorrectly. 


(a) 


(b) 


(c) 


(a) 


20 FOR 1=1 TO 100 STEP J 


80 NEXT J 


Тһе running variable in the NEXT statement (J) is not the same as the running variable in the 
FOR-TO statement (1). 


50 FOR N=N1 TO N2 
35... 
90 NEXT N 
120 IF N-10 THEN 75 
Control cannot be transferred into a lóop. 
100 FOR К-3 TO -3 STEP -1 
130 PRINT. ХІК 


150 NEXT K 
Correct, provided a value has been assigned to X. (Notice that the running variable appears 
within the PRINT statement, but its value is not altered.) 


25 FOR X-0 TO 1 STEP 0.05 


50 FOR Y=0 TO 10 STEP 0.1 


75 NEXT X 
100 NEXT Y 


The loops overlap. 
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(е) 100 FOR 1=1 ТОМ 


125 FOR J=1 ТО М 


135 FOR K=1 ТО М+М 
160 МЕХТ К 
180 NEXT J 


200 FOR J=1 ТОМ 
225 NEXT 1 

235 FOR K-1 TO M+N 
240 NEXT K 
250 NEXT 1 


Correct. 


Supplementary Problems 


Each of the following is a condition that involves the use of a relational operator. Identify which, if any, 
are written incorrectly. 


(а) J>=J1+J2 (4) Х<.01 
(b) C=C+1 (e) P2<>T$ 
(с) N$-"END" (f) A/B<=C/D 


In order that the condition 
P$<Q$ 


be satisfied, what is required of the strings represented by the variables P$ and Q$? 


Several IF-THEN statements are shown below. Identify which, if any, are written incorrectly. 


(a) 30 IF K<>K1 THEN 10 (e) 150 IF Р=Р1 THEN K 
(b) 50 IF 1<100 THEN J=J+1 (f) 100 IF Bt2<>(4*A*C) THEN 150 
(c) 120 IF X>=Y+Z GO TO 200 (g) 45 IF X12<0 THEN 20 


(d) 75 IF M$-"DATE" THEN 50 


Write one or more BASIC statements to accommodate each situation described below. 


(a) If K has a value less than 15, then transfer control to statement number 50; otherwise execute the 
next statement. 
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(b) If N$ represents the string “OPTION A,” then transfer control to statement number 70; otherwise 
transfer control to statement number 150. 


(c) If X has a value equal to or greater than 100, then transfer control ahead to statement 200; 
otherwise increment J by one unit, read a new value for X, and return to statement 60. 


(4) If J has а value of zero, then transfer control to statement 150; otherwise add the value of J to the 
value of S and return to statement 20. 


The skeletal structures of several IF-THEN ...GO TO loops are shown below. Identify which, if any, 
are written incorrectly. 


(a) 20... (d) 10 LET X=100 
120 IF К$=“ЕМО” THEN 200 50... 
130 PRINT A,B,C e. 
140 GO TO 20 100 IF X>100 THEN 200 
es 110 LET X-X-5 
200 STOP 120 GO TO 50 
(b) 10 INPUT N 3» 
20 LET T-0 200... 
30 LET J=1 (e) 10 LET X-100 
40 INPUT TI EE 
50 LET T=T+T1 50... 
60.IF J-N THEN 150 e 
70 LET J=J+1 100 IF X-0 THEN 200 
80 GO TO 30 110 LET X-X-5 
ve 120 GO TO 50 
150 PRINT J,T ee 
160 END 200... 


(с) 10 LET Х-100 
SO 


100 IF X>=100 THEN 200 
110 LET X=X-5 
120 GO TO 50 


200... 


N-GO TO statements are shown below. Identify which, if any, are written incorrectly. 

(е) 150 ON ((A+B)/C)t2 GO TO 170,190,225 
(f) 45 ON K-3 THEN 65,90 

(g) 80 GO TO 50,120,150 ON (X+Y) 


Several O! 
(a) 50 ON N$ GO TO 10,70,120 

(b) 100 ON A GO TO 50,20,50,200,120 
(c) 75 ON X1 GO TO 100,25,75,150 
(d) 100 ON N GO TO N1,N2,N3,N4,N5 


Consider the following ON-GO TO statement (which is grammatically correct): 
75 ON J-K GO TO 100,50,20,150 

What will happen when this statement is executed if 

(a) J=2 and K=3? (d) J=5 and K=0? 

(b) 1=4.5 and K=0.75? (e) 1--І and K--2.8? 

(с) J=1 and K--1? 


439 Several FOR-TO statements are shown below. Identify which, if any, are written incorrectly. 


(a) 100 FOR С=.1*А TO .25*(А+В) STEP P/2 
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(b) 65 FOR X12=0 TO 100 STEP 20 
(c) 80 FOR K$=P$ ТО 0$ 


Write an appropriate pair of FOR-TO and NEXT statements (i.e., write the skeletal structure of a 


(d) 125 FOR Х-У(1) TO V(2) STEP V(3) 
(e) 30 FOR J1-25 TO -25 STEP -5 
(f) 45 FOR A-12 TO 0 STEP 0.1 


FOR-TO . . . NEXT loop) for each situation described below. 


(a) A loop is to be repeated 200 times. 


(b) A loop is to be repeated 200 times, except that control will be transferred out of the loop to 


statement 175 if the value of the variable X becomes less than 0.001. 


(c) A loop will be repeated as many times as necessary for the running variable to increase from 1 to 
73, assuming that the running variable is increased by three units each time the loop is executed. 
(d) А loop will be repeated as many times as necessary for the running variable to increase from 0.5 to 
a value given by the formula A13—10. Each time the loop is executed, the running variable will 


increase by the value given by the formula А+В. 


The skeletal structures of several FOR-TO ... NEXT loops are shown below. Identify which, if any, are 


written incorrectly. 


(a) 10 FOR К=К! TO K2 (а) 
я  K-KH 

90 NEXT K 
(b) 10 FOR СІ-0 ТО 50 STEP 5 (e) 


35 FOR C2=0 TO C1 
65 NEXT с 
100 NEXT xt 
(c) 10 FOR J=1 TO N 
40 FOR K=1 TO M 
70 NEXT J i) 


120 NEXT K 


100 FOR X=0 TO 1 STEP .02 
150 FOR X=0 TO 5 STEP .05 
200 NEXT X 

50 FOR P=1 TO 50 

80 FOR Q=2 TO 100 STEP 2 
100 IF > ТНЕМ 160 
120 NEXT о 

160 PRINT “T= "SE 

200 NEXT P 

75 FOR Х-А TO (A+B) STEP С 


125 NEXT C 


Programming Problems 


The equation 


х5%3%2-10-0 


which was presented іп Example 4,5, сап Бе rearranged into the form 


x = V (10— х?)/3 


Rewrite the BASIC program presented in Example 4.5 to make use of the al 
Run the program, printing out the value of x calculated during each iteration. Compare the calculated 


results with those presented in Example 4.5. 


bove form of the equation. 
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4.43 


4.44 


4.45 


4.46 


4.47 


4.48 


Rewrite the program presented in Example 4.5 so that it makes use of a ЕОВ-ТО. . . NEXT loop rather 
than an IF-THEN ...GO TO loop. 


Rewrite the program presented in Example 4.9 so that the ON-GO TO statements are replaced by 
IF-THEN statements. What conveniences have been achieved by using the ON-GO TO statements? 


Rewrite the program presented in Example 4.16 so that it makes use of an IF-THEN ... GO TO loop 
rather than a FOR-TO... NEXT loop. 


Write a conversational-style program that will read in a positive integer value and determine the 
following. 

(a) If the integer is a prime number . 

(b) И the integer is a Fibonacci number 

Write the program in such a manner that it will execute repeatedly (loop), until a zero value is detected 
for the input quantity. 


Several simple programming exercises are presented below. Prepare a detailed outline, a corresponding 
flowchart and a complete BASIC program for each exercise. Execute (RUN) the program using the data 
provided. 


(a) Calculate the average of a list of n numbers. Test your program with the following set of data 


(n = 10): 
27.5 870 
134. 399 
538 477 
29.2 8.1 
74.5 632 


(b) Calculate the weighted average of a list of n numbers, using the formula 


Xov = ха хо + ‘°° + fun 


where the f's are fractional weighting factors, і.е., 0 f, <1 and fı + f2+ ‘**+ f, = 1. Test your 
program with the data given in part (a) above, and the following weighting factors (n — 10): 


(c) Calculate the cumulative product of a list of n numbers. Test your program with the following set 


of data (n = 6): 6.2, 12.3, 5.0, 18.8, 7.1, 12.8. 
(d) Calculate the geometric average of a list of numbers, using the formula 


Xavg = [XiX2X3 ° ° ` ж” 
ata given in part (c) above. Compare the result obtained with the 


Test your program using the d г 
data. Which average is larger? 


arithmetic average of the same 


Prepare a detailed outline, a corresponding flowchart and a complete BASIC program for each of the 


problems presented below. 
(a) Calculate the sum of the first 100 odd integers (i.e., 1+ 3+ 5 +۰۰۰ + 199). Write the program two 


different ways: 


(5) 


(с) 


(4) 


(e) 


(Р) 


(g) 
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(G) Write a sequence of statements that will add the next integer to the sum each time the 
sequence is repeated. Let the decision to repeat the sequence or to terminate depend on the 
outcome of an IF-THEN statement. 

(ii) Use a FOR-TO...NEXT loop. 

What advantages and disadvantages characterize each method? 


Calculate the sum of the first N multiples of an integer K. (For example, if K=3 and М= 10, then 
calculate the sum of 1x 3+ 2 x 3+ :-: + 10x 3.) Make the program completely general by reading 
in values for N and K each time the program is run. Test the program by calculating the sum of the 
first 1000 multiples of the integer 3. 


Compute the value of K!, where K represents an integer whose value is read into the computer each 
time the program is run. Test the program by calculating the value of 10! (Note that K! is defined as 
1х2х3х...х К.) 


The sine of x сап be calculated approximately by summing the first N terms of the infinite series 
X Xe yT 
sin x = я PL *** (x in radians) 
Write a complete BASIC program that will read in a value for x and then calculate its sine. Write 
the program two different ways: 


(i) Sum the first N terms, where N represents a positive integer that is read into the computer 
along with the numerical value for x. 

(ii) Continue adding successive terms in the series until the value of a term becomes smaller (in 
magnitude) than 1075. 


Test the program for x = 1, x = 2 and x = -3. In each case write out the number of terms used 
along with the final answer. 


Suppose you place a given sum of money, A, into a savings account at the beginning of each year 
for n years. If the account earns interest at the rate of i percent annually, then the amount of 
money that will have accumulated after n years, F, is given by 

Е = A[( + i/100)+ (1+ i/100} + (1+ i/100 + (14 i/100)"] 
Write a conversational-style BASIC program to determine the following. 


G) How much money will accumulate after 30 years if $1000 is deposited at the beginning of each 
year and the interest rate is 6 percent per year (annual compounding)? 


(4) How much money must be deposited at the beginning of each year in order to accumulate 
$100,000 after 30 years (again assuming that the interest rate is 6 percent per year, com- 
pounded annually)? 


In each case, first determine the unknown amount of money. Then create a table showing the total 
amount of money that will have accumulated at the end of each year. 


Modify the above program to accommodate quarterly rather than annual compounding of interest. 
Compare the calculated results with those obtained in part (e). Hint: The proper formula is 

Е = A[(1 + i/100m)" + (1+ i/100m P + (1 + i/100m 3” +... + (1+ i/100m)""] 
where m represents the number of interest periods per year. 


A class of students earned the following grades for the six examinations taken in a BASIC 
programming course. 
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(h) 


(i) 


(i) 


(k) 
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Name Exam Scores (percent) 

Adams 45 80 80 95 55 75 
Brown 6 50 70 75 55 80 
Davis 40 30 0 45 6 ‘55 
Fisher 0 5 5 0 10 5 
Hamilton 90 85 100 95 90 90 
Jones 95 90 80 95 85 80 
Ludwig 35 50 55 65 45 70 
Osborne 15137260 gs 60 70 80 
Prince 85 75 60 85 90 100 
Richards 50 6 50 35 65 70 
Smith 70 60 757 70 55 75 
Thomas 10 25 35 20 30 10 
Wolfe 25 40 657075 85 95 
Zorba 65 80 70 100 60 95 


Write a conversational-style BASIC program that will accept each student’s name and grades as 
input and determine an average grade for each student. Make the program as general as possible. 


Modify the program written for part (g) above to allow for unequal weighting of the individual 
exam grades. In particular, assume that each of the first four exams contributes 15 percent to the 
final score and each of the last two exams contributes 20 percent. 


Extend the program written for part (h) above so that an overall class average is determined in 
addition to the individual student averages. 


Write a BASIC program that will allow the console to be used as a desk calculator. Consider only 
the common arithmetic operations (addition, subtraction, multiplication and division). 
Write a BASIC program to calculate the roots of the quadratic equation 

ax^* bx*c-0 


(See Examples 2.26 and 2.30.) Allow for the possibility that one of the constants has a value of zero 
and that the quantity 5? - 4ac is less than or equal to zero. 


Chapter 5 
Some Additional Features of BASIC 


This chapter presents some additional frequently used features of BASIC. We begin with a 
discussion of the built-in library functions, which simplify such common operations as calculating the 
absolute value of a number, log of a number, etc. Then we will consider the use of lists and tables, 
which allow us to manipulate collections of numerical quantities or strings as though they were single 
variables. Finally we present two additional statements for entering data, thus providing us with an 
alternative to the use of the INPUT statement. 


5.1 LIBRARY FUNCTIONS 


The BASIC library functions (also called standard functions or elementary functions) provide a 
quick and easy way to evaluate many mathematical functions and to carry out certain logical 
operations. These library functions are prewritten routines that are included as an integral part of the 
language. Each function is accessed simply by stating its name, followed by whatever information 
must be supplied to the function, enclosed in parentheses. (A numeric quantity or a string that is 
passed to a function in this manner is called an argument.) Once the library function has been 
accessed the desired operation will be carried out automatically, without the need for detailed, 
explicit programming. 


EXAMPLE 5.1 
Suppose we wanted to calculate the square root of the value represented by the variable X. We could write 
50 LET Ү-5ОК(Х) 


This would cause the variable Y to be assigned a value equal to the Square root of X. The name of the square 
root function is SOR, and its argument, in this example, is the variable X. 
Of course, we could have written 


50 LET Y=Xt.5 


Thus the use of the square root function is not required; it is merely a convenience. (It should be pointed out, 
however, that calculating the Square root of a number by means of the Square root function may require less 
computer time than the corresponding exponentiation operation.) 


Table 5.1 presents several of the commonly used library functions. А more extensive list, 
including the entries contained in Table 5.1, is shown in Appendix B. 

The use of all of the functions in Table 5.1 should be readily apparent except for INT and TAB, 
Which are discussed below. Notice that some of the functions (e.g., LOG and SOR) require a positive 
argument. If any such function is supplied a negative argument, the minus sign will be ignored and 
the calculation will be based on the absolute value of the argument. Usually, however, an error 
pisces will be printed when the function is evaluated, indicating that a negative argument has been 
supplied. 
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Table 5.1 Commonly Used Library Functions 


10 LET Ү=АВЅ(Х) 
10 LET Y=ATN(X) 
10 LET Y=COS(X) 
10 LET Y-COT(X) 


Calculate the absolute value of x; y = |х). 
Calculate the arctangent of x; y = arctan (x). 
Calculate the cosine of x; y=cos (x), x in radians. 


Calculate the cotangent of x; y = cot (x), 

x in radians. 

Raise e to the x power; y 

Assign to y the largest integer that algebraically 
does not exceed x. 

Calculate the natural logarithm of x; y = log, x, 
x0. 

Determine the sign of x (y = +1 if x is positive, 
y=0 if x -0, y = -1 if x is negative). 
Calculate the sine of x; y = sin (x), x in radians. 
Calculate the square root of x; y = Vx, x > 0. 


Causes the value of x to be printed or displayed at 
column n. (Left column is considered column 0.) 


Calculate the tangent of x; y = tan (x), x in radians. 


10 LET Y-EXP(X) 
10 LET Y-INT(X) 


10 LET Y-LOG(X) 


10 LET Y-SGN(X) 


10 LET Y-SIN(X) 
10 LET Y-SOR(X) 
20 PRINT TAB(N);X 


10 LET Y- TAN(X) 


' The symbol e represents the base of the natural (Naperian) system of logarithms. It is an irrational number whose 
approximate value is 2.718282. 


EXAMPLE 5.2 
Consider the statement 
10 LET Y=INT(X) 
If X (the argument) represents the value 12.9, then Y will be assigned the value 12. On the other hand, if X 
represents —4.2, then Y will be assigned a value of -5. 


The TAB function permits the programmer to specify the exact positioning of each output item listed 
in a PRINT statement. This allows greater flexibility in the spacing of output data than the methods 
described in Section 2.10. Each time the TAB function appears in an output list, the print head or cursor 
of the console will move to the right until the specified column has been reached. (Note that the leftmost 
column is considered column 0.) If the print head is already positioned beyond (i.e., to the right of) the 
indicated column, however, then the TAB function will be ignored. 


EXAMPLE 5.3 
Suppose we wanted to print the values of A, B and C on one line, with the first value beginning in column 
number 9, the second in column 29 and the third in column 47. (Note that these are actually the 10th, 30th and 
48th columns, respectively.) This is accomplished by writing 
100 PRINT TAB(9);A;TAB(29);B;TAB(47);C 
On the other hand, consider the statement 
150 PRINT “NAME AND ADDRESS";TAB(12);N$ 


In this case the TAB function will be ignored, since the print head (or cursor) will already be positioned at column 
number 16 after the string NAME AND ADDRESS has been printed. Hence the string represented by N$ will begin 
in column 16. If the argument of the TAB function were greater than 16, however, then the print head (cursor) would 


be positioned as desired. 
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Use of a library function is not confined to a LET ог a PRINT statement—a library function may 
appear wherever a variable might ordinarily be present. Moreover, the arguments need not be simple 
variables. Constants, subscripted variables, formulas—even references to other functions—can be used 
as valid function arguments. Truncation will be performed automatically if necessary for those functions 
that require integer-valued arguments (as, for example, the TAB function). 


EXAMPLE 5.4 


Each of the following statements is a valid example of the use of a library function. 
40 LET X1=(—B+SQR(D))/(2*A) 
60 IF АВ$(Х-Х1)<.00001 THEN 110 
100 PRINT SIN(T), COS(T), TAN(T), LOG(T), EXP(T) 
200 FOR J= 0 TO INT(Y) 
75 LET A=LOG(SQR(ABS(P))) 


The use of library functions is demonstrated in the following example. (Note that library 
functions were used in Figs. 4.2 and 4.10.) 


EXAMPLE 5.5 A Table of Functions 


Suppose we wish to generate a table of values for sin (x), cos (x), tan (x), log (x) and e" for 21 values of x 
ranging from 0 to т. This is easily accomplished with a FOR-TO loop, with the calculated data displayed in 
columnar form. 


The Program Outline 
The computation will proceed as follows. 
1. Print the following six column headings. 
X SINK) COS(X) ТАМ(Х)  LOG(X)  EXP(X) 


2. Print the value of x, sin (x), cos (x), tan (x), log (x) and e* for each value of x ranging from x = 0 to 
x = 3.1416, with a step size of 0.15708 (which is equal to 3.1416 + 20). This will generate 21 lines of 
output. 


3. Stop. 


A corresponding flowchart is shown in Fig. 5.1. 


سم 


PRINT 
X, SIN(X) 
COS(X), TAN(X) 
LOG(X), EXP(X) 


PRINT 
COLUMN 
HEADINGS 


FOR X=0 
TO 3.1416 
STEP .15708 


ل سسا 


Fig. 5.1 


The BASIC Program 


A complete BASIC program, followed by the calculated output data, is shown in Fig. 5.2. The program is 
straightforward and requires no special explanation. It should be pointed out, however, that some care must be 
used in assigning arguments to the TAB functions so that the six columns of output are spaced evenly across the 
page. The program may have to be executed several times, with intermittent adjustments of the TAB arguments 
after each execution, before the columns are spaced correctly. 

The output data clearly show the calculated values of sin (x), cos (x), tan (x), log (x) and е" for each 
specified value of x. Notice that an error message is produced when we attempt to calculate the log of zero. This 
is followed by the number —1.70141E+38, which is the largest (in magnitude) negative number that the 
computer cah accommodate. (Actually, the log of zero is defined to have a negative infinite value.) We could 
have avoided this situation by including an appropriate IF statement in the program. 
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10 REM GENERATION ОЕ А TABLE OF MATHEMATICAL FUNCTIONS 

20 PRINT TAB(7);"X"; TAB(15) ; "SIN(X) "3 ТАВ (27) 5 "COS (OX) "5 

50 PRINT TAB(39) ; "ТАМ(Х)";ТАВ(51); "LOG (OO "; ТАВ (5) ; "EXP(X)" 
40 PRINT 

50 FOR X=0 TO 3.1416 STEP .15708 

60 PRINT ТАВ (5); X; TAB(13) ; SIN OO ; ТАВ (25) ; COS OO $ 

70 PRINT TAB(37); TAN(X) ; TAB (49) ; LOG (X) ; ТАВ (61) EXP (X) 


80 NEXT X 

90 END 

>RUN 

EX5.5 09:28 15-МАК 

x SIN(X) cos(x) TAN(X) LOG(X) EXP (X) 

o o 1 о 

7 LOG OF ZERO ІМ LINE 70 

-1.70141Е%58 1 

0.15708 0.156435 0.987688 0.158385 -1.851 1.17009 
0.31416 0.309018 0.951056 0.324921 -1.15785 1.36911 


0.47124 0.453991 0.891006 0.509527 -0.752588 1.60198 
0.62852 0.587786 0.809016 0.726545 -0. 444706 1.87446 


0.7854 0.707108 0.707105 1. -0.241562 2.19328 
0.94248 0.809018 0.587783 1.37639 -5.92406Е-2 2.56634 
1.09956 0.891008 0.455988 1.76262 9.49101Е-2 3.00284 
1.25664 0.951057 0.509014 3.07771 0.228441 5.5156 
1.41572 0.987689 0.156431 6.51589 0.346225 4.11122 
1.5708 1 -3.65144E-6 -273864. 0.451585 4.81049 
1.72788 0.987688 -0.156438 -6.51559 0.546895 5.62871 
1.88496 0.951055 -0.307021 -3.07764 0.633907 6. 58609 
2.04204 0.891004 -0.453995 -1.96259 0.713949 7.70631 
2.19912 0.809014 -0.587789 -1.37637 0.788057 9.01707 
2.3562 0.707103 -0.707111 -0.999989 0.85705 10.5508 
2.51328 0.587781 -0. 80902 -0.726534 0.921587 12.3454 
2.47036 0.453985 -0.891009 -0.509518 0.982213 14.4452 
2.82744 0.309011 -0.951059 -0.324912 1.03937 16.9021 
2.98452 0.156428 -0. 9876897 -0.158377 1.09344 19.777 
5.1416 -7.25607E-6 -і 7.25607E-6 1.14475 25.1409 


TIME: 0.18 SECS. 
Fig. 5.2 


Virtually all versions of BASIC include the library functions shown in Table 5.1 and Appendix B. 
Many versions of the language also include additional library functions, some of which may be 
unique to that particular version. Most of these are of a numeric nature, but some accept string 
arguments or return string values (or both). This is especially true of microcomputer versions of BASIC 
(see Section 9.3). The reader should consult a reference manual to determine exactly what library 


functions are available at his or her particular installation. 


5.2 LISTS AND TABLES (ARRAYS) 


When writing a complete program, it is often convenient to refer to an entire collection of items 
at one time. Such a collection is usually referred to as an array. We may, for example, be concerned 
ist of items (also known as а one-dimensional array) or with all of the entries ina 


with a complete li : 
table (a two-dimensional array). BASIC allows us to refer to the elements of lists and tables as 


though they were ordinary variables, thus making array manipulation as simple as possible. 
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The elements in a list or table can be either numerical quantities or strings. (Some versions of 
BASIC allow string lists but not string tables.) However, all of the elements in a given array must be 
of the same type (i.e., all numeric or all string). If an array contains numeric elements, it must be 
named with a single letter, whereas a string array is referred to with a letter followed by a dollar sign. 
Note that array names consisting of a letter followed by an integer, or of a letter followed by an integer 
and a dollar sign, are not allowed in traditional BASIC. 

Within a given program each array name must be unique, i.e., no two arrays can have the same 
name. On the other hand, an array and an ordinary variable can be assigned the same name. Such 
duplication of names within a program can be logically confusing, however, and is therefore not 
recommended. 


EXAMPLE 5.6 
A program is to contain a list of names and a table of numbers. The list will be called L$ and the table T. 
It is also possible to include in the program an ordinary string variable called L$ and an ordinary numeric 
variable called T. These variables would be separate and distinct from the arrays L$ and T. It would probably be 
wiser, however, to name these variables differently (e.g., L1$ and T9), thus avoiding any possible confusion 
between the arrays and other program variables. 


5.3 SUBSCRIPTED VARIABLES 


The individual elements within an array are known as subscripted variables. Any such element 
can be referred to by stating the array name, followed by the value of the subscript, enclosed in 
parentheses. In the case of a table, two subscripts must be specified, separated by a comma. Thus 
P(3) is an element of the list P, and T(8,5) is an element of the table T. The subscripts must be 
integer-valued and cannot be negative. 


EXAMPLE 5.7 


Ten names (strings) are to be placed in a single list. The list will be called L$, and the individual names will 
be referred to as L$(1), L$(2),..., L$(10). Notice that the subscript takes on integer values ranging from 1 to 10. 

Similarly, forty numbers are to be arranged in a table having five rows and eight columns. We will refer to 
the table as T. The first subscript (representing the row number) will take on integer values ranging from 1 to 5, 
and the second subscript (representing the column number) will range from 1 to 8. Thus the number in the third 
row, fourth column will be referred to as T(3,4), etc. 


A. subscript need not necessarily be written as a constant. Variables, formulas and function 
names can also be used. However, the value that a subscript takes on must be either zero or a 
positive integer. If a formula or a function reference results in a noninteger value for a subscript, then 
that value will be truncated, thus resulting in an integer-valued subscript. Execution will be 


suppressed and an error message written if a negative value is generated for a subscript or if too large 
a positive value is generated. 


EXAMPLE 5.8 
All the subscripted variables shown below are written correctly. 
P(3) T(8,5) 
P(K) Т(11,12) 
Р(С(Ј)) Т(6,М). 
Р(2жА-В) T(A1+B1, A2+B2) 


P(SOR(X124Y12)) T(ABS(X+ Y), ABS(X-Y)) 
Consider the subscripted variable P(2*A—B). Suppose the formula 2«A—B has a value of 2.8. This value will 
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be truncated, and the subscripted variable will be interpreted as P(2). If this formula has a value of —3.6, 
however, then an error message will be written and program execution will terminate. 


Subscripted variables can be used within a program in the same manner as ordinary variables. 
This is illustrated іп the following example. 


EXAMPLE 5.9 Word Unscrambling 


An interesting problem involving the manipulation of subscripted variables is that of rearranging a group of 
letters to form all possible words. Suppose, for example, we are given four letters, such as OPST. We would like 
to form all possible combinations of these four letters and then write-out each combination. Thus we can find all 
possible four-letter words that can be formed from the original four letters (viz., POST, POTS, TOPS, STOP, 
SPOT). 


Computational Procedure 


In order to do this, let us place the given letters in a list that we will call L$. Each letter will be represented 
by а subscripted variable L$(1), L$(2), .... Hence our objective will be to write out all possible combinations of 
the subscripted variables. 

Let us print out the given four letters іп the order designated by the indices I1, 12, ІЗ and 14, where П is the 
subscript of the first letter to be printed, 12 refers to the second letter to be printed, and so оп. For example, if 
П-3, 12=2, 13=4 and 14-1, we would print the letters in the order 

L$)  L$Q) 184) 154) 
We wish to write a BASIC program that will allow I1, 12, I3 апа 14 to take оп all possible values, with the 
restriction that each index һауе a unique пшпегіса! value. That is, по two indices will be allowed to represent 


the same number. 
In addition to the INPUT and PRINT statements, the BASIC program will consist essentially of a nest of 


three FOR-TO loops. The outermost loop will assign a value to I1; the next loop will assign a value to 12, testing 
to make sure that I2 differs from I1. The innermost loop will establish a value for I3, again testing to see that I3 
has a different value than I1 or I2. Finally, we can obtain a value for 14 by noting that the sum of the first four 
integers is 10. Therefore once I1, 12 and 13 have each been assigned a unique value, we сап calculate 14 from the 


formula 


14=10-—(11+12+13) 


Тһе Program Outline 
We can outline the entire procedure as follows: 


. Read L$(1), L$(2), L$(3) and L$(4). 
2. Do the following, for I1— 1,2,3,4. 
(a) Assign a уаше to H. 
(b) Do the following, letting 12- 1,2,3,4. 


G) Assign а value to 12. 
Gü) Test to see if 12 differs from И. If not, increase 12 by one unit and test again. 


(ii) For each value of H and 12 do the following, letting 13-1,2,3,4. 


(1) Assign a value to ІЗ. 
(2) Test to see that I3 differs from both I1 and I2. If not, increase I3 by one unit and test 


again. 
' (3) coit a value for I4 from the formula 14- 10-(11+12+13). 
(4) Print ош L$(I1), L$(I2), L$(13) and L$(14). 
3. Stop. 
A flowchart of the procedure is shown in Fig. 5.3. 


EAD 
L$(1,L$(2), 
L$(9),L$(4) 


ғг-------------- 


-------.... 


14-10- 
(11+12+13) 


— 


———— Í 


—— j 


Fig. 5.3 
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The BASIC Program 


The actual BASIC program appears in Fig. 5.4. Shown beneath the program is the output generated for the 
four letters OPST. We see that there are 24 different ways in which the four letters can be combined. It can be 
proven mathematically that this is the correct number of combinations. By visual inspection we can find the five 
recognizable words POST, POTS, SPOT, STOP and TOPS. These words have been circled in Fig. 5.4. 


10 КЕМ FOUR-LETTER WORD UNSCRAMBLER 
20 PRINT "TYPE ANY FOUR LETTERS: " 
50 PRINT 

40 INPUT L$(1),L$(2),L$(3),L$(4) 

50 РКІМТ 

60 FOR 11=1 TO 4 

70 FOR І2-1 TO 4 


во IF I2=I1 THEN 150 

90 FOR I3=1 TO 4 

100 IF I3=I1 THEN 140 

110 IF 15=12 THEN 140 

120 LET 14=10- (11+12+1$) 
150 PRINT L$(I1);L£(I2) ;3L$(IS);L$(IA) 
140 NEXT 1$ 

150 NEXT I2 

160 NEXT I1 

170 END 

жим 

EX5.9 09:30 15-MAR 


TYPE ANY FOUR LETTERS: 


70,P,8,T 


OPST 
OPTS 
OSPT 
OSTP 
ОТРЗ 
OTSP 
СРО5 
PSOT 
рата 
PTOS 
PTSO 
SOPT 
SOTP 
(РОТ) 
SPTO 


STPO 
TOSP 
TPOS 
TPSO 


TSOP 
TSPO 


TIME: 0.11 SECS. 
Fig. 5.4 
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5.4 DEFINING ARRAYS—THE DIM STATEMENT 


BASIC automatically assigns 11 elements to every list and 121 elements (11 rows and 11 
columns) to every table appearing in a program. Thus each subscript is allowed to range from 0 to 10. 
Of course we need not make use of all these array elements—a subscript can begin with some integer 
value greater than zero and end with an integer less than 10. (In Example 5.9, for instance, the 
subscript ranged only from 1 to 4.) 

We can also make use of larger arrays if we wish. To do so, however, we must define the size of 
each array, 1.е., we must specify the maximum number of elements in each array. This is ac- 
complished by means of the DIM (DIMENSION) statement. 

The DIM statement consists of a statement number, followed by the keyword DIM, followed by 
one or more array names separated by commas. Each array name must be followed by one or two 
integer constants (one for a list, two for a table) enclosed in parentheses and, if two integers are 
shown, separated by a comma. These integers indicate the maximum value of each subscript that is 
permitted in an array. 


EXAMPLE 5.10 


A program is to contain a numeric table called A, two numeric lists called B and C and a string list called 
F$. The table is to have 50 rows and 100 columns, B and C will have 100 elements and 50 elements respectively, 
and F$ will contain 65 elements. Hence the program may contain the following DIM statement. 


20 DIM A(50,100), B(100), C(50), F$(65) 


This statement actually reserves 51 rows and 101 columns for A, 101 elements for B, 51 elements for C and 
66 elements for F$. Thus the arrays are slightly larger than necessary. However, many programmers prefer to 
have a subscript begin with a value of 1 rather than 0, as though they were working with a subscripted algebraic 
variable. Under these circumstances it is easiest to write the DIM statement as shown above. 


A DIM statement can appear anywhere in a BASIC program. However, it is good programming 
practice to place the DIM statement at the beginning of a program where its preserice will be readily 
apparent. This allows a programmer or user to determine maximum array sizes easily and quickly. 

Lists having fewer than 11 elements and tables having fewer than 121 elements can also be 
included in a DIM statement, even though it may not be necessary to do so. This will cause fewer 
words of storage to be reserved in the computer's memory. Some care is required with tables, 
however, because one of the subscripts may exceed a value of 10 even though the total number of 
elements is less than 121. When this happens a DIM statement must be used. We will see such a 
situation in the next example. 


EXAMPLE 5.11 


A program contains the following DIM statement. 
30 DIM P(6), Q(10), R(5,15) 


This results in 7 words of storage being reserved for the 7 elements of P, 11 words for Q and 96 words (6 rows, 
16 columns) for the table R. 

The inclusion of P and Q in the DIM statement was really not necessary, since adequate storage would have 
been assigned automatically. Note, however, that by including P in the DIM statement we have saved 4 words of 
storage. On the other hand, the table R must be included in the DIM statement since the second subscript 
exceeds 10. This is true despite the fact that the total number of words required by R is less than 121. 


We will see an example of a complete program requiring the presence of a DIM statement later 
in this chapter. 
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5.5 ЕМТЕКІМС INPUT DATA—THE READ AND DATA STATEMENTS 


Many BASIC programs require that a large number of data items be entered into the computer. 
This can be accomplished with the INPUT statement, though it may be somewhat cumbersome to do 
so. Usually it is more convenient to enter such data by means of the READ and DATA statements. 
These statements are also used to enter data when a program is run in the batch rather than the 
timesharing mode. 

The READ statement specifies the variables whose values are to be enteréd into the computer. 
This statement consists of a statement number, followed by the keyword READ, followed by a list of 
input variables. The list can contain both ordinary and subscripted variables, representing numeric 
and/or string values. If the list contains two or more variables, they must be separated by commas. 

The purpose of the DATA statement is to assign appropriate values to the variables listed in the 
READ statement. The DATA statement comprises a statement number, followed by the 
keyword DATA, followed by a set of numbers and/or strings separated by commas. Each number 
and/or string in a DATA statement must correspond to a variable of the same type in a READ 
statement. 


EXAMPLE 5.12 
A BASIC program contains the statements 
30 READ K,N$,Z(1) 


120 DATA 12,5ЕУЕМТЕЕМ,-5 


These statements cause the number 12 to be assigned to the variable K, the string SEVENTEEN to be assigned 
to N$, and —5 to be assigned to Z(1). 

Each DATA statement need not correspond to a particular READ statement, although such 
one-to-one correspondence is permitted if desired (as we have seen in the last example). The 
important point is that all of the DATA statements in a program collectively form a block of data 
values. Each element in the data block must correspond to a variable in a READ statement. This 
correspondence must be with respect to both order and type. 


EXAMPLE 5.13 
The following statements are included in a BASIC program. 
40 READ A,B,C 


50 READ P$,Q$ 
60 READ Е(1),Е(2),Е(3) 


210 DATA 3,-2,11,АВ 
220 DATA CD,-8,0,10 


These statements cause the numbers 3, 
assigned to P$ and Q$ and the numbers 


—2 and 11 to be assigned to A, B and C, the strings AB and CD to be 
—8, 0, 10 to be assigned to the subscripted variables F(1), F(2) and F(3). 


Notice that the READ statements do not correspond to the DATA statements ona one-to-one basis, but pe 
variables in the three READ statements do correspond, in order and in type, to the elements in the data block. 
The two DATA statements could just as well be combined, yielding the single statement 


210 DATA 3,-2,11,AB,CD,-8,0,10 


The results would be the same as above. 

It should be pointed out that data specified via READ-DATA pum Ж а e Ke 
program, in contrast to data entered via INPUT statements. Therefore the data containe иш а я а 
block аге stored whenever the program is stored and are assigned to the appropriate set of variables 
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whenever the program is executed. Hence such data are relatively permanent; they can be changed 
only by altering one or more DATA statements within the program. 
Тһе following rules must be observed when placing data items іп a data block. 


1. The data items must correspond in order and in type to the variables listed in the READ 
statements. There must be at least as many elements in the data block as there are variables 
in the READ statements. Extra data items will be ignored. 


2. The data items within a DATA statement must be separated by commas. However, the last 
data item in a DATA statement should not be followed by a comma. 


3. The data items must consist of numbers or strings. Variables and formulas are not 
permitted. 


4. Strings containing commas or beginning with blank spaces must be enclosed in quotation 
marks. Other strings may be enclosed in quotation marks if desired. 


DATA statements may appear anywhere in a BASIC program. However, it is good programming 
practice to place all DATA statements consecutively near the end of the program. Thus the location 
and composition of the data block will be readily apparent. 

The following example illustrates the assignment of numeric data values to a set of subscripted 
variables and the manipulation of those subscripted variables. Use of the DIM statement is also 
demonstrated. 


EXAMPLE 5.14 Reordering а List of Numbers 


Consider the well-known problem of rearranging a list of N numbers into a sequence of increasing 
magnitudes. The program is to be written in such a manner that unnecessary storage will not be used. Therefore 
the program will contain only one array, which will be rearranged one element at a time. 


Computational Procedure 


The procedure will be first to scan the entire list for the smallest number and interchange this number with 
the first number in the list. Next the remaining N—1 numbers are scanned for the smallest of these numbers, and 
this smallest number is interchanged with the second number. Then the last N—2 numbers are scanned for the 
smallest numbers, which is interchanged with the third number, and so on, until the entire list has been 
rearranged. This will require a total of N—1 passes through the list, though the list will decrease by one number 
for each subsequent scan. 

In order to find the smallest number for each pass, we sequentially compare each number in the list with the 
starting number (the ith number). If the ith number is larger than, say, the jth number, then we interchange the 
two numbers; otherwise we leave the two numbers in their original positions. Once this procedure has been 
applied to the entire list, the first number in the list will be the smallest. We then repeat the entire protedure 
N-2 times, for a total of №1 passes (i = 1,2, ..., №1). 

The only remaining question is how the ith number and the jth number are interchanged. We first “set 
aside" the ith number for future reference; that is, we save the original value of the ith subscripted variable. 
Then we assign the value of the jth subscripted variable to the ith subscripted variable. Finally we assign the 
original value of the ith subscripted variable, which had been set aside, to the jth subscripted variable. The 
interchange is now complete. 


The Program Outline 

The entire computational procedure can be carried out with a double FOR-TO loop. To see how this is 
accomplished, consider the following outline: 

1. Read in the size of the list (N). 

2. Read in and then print out the list of N integer constants. 


3. Perform the following calculations N—1 times, letting i—1,2,..., N-1: Compare the ith number, 
which will be the starting number in the list, with each successive number (each jth number, where 


j= d. i+2,...,N). Whenever the ith number is larger than the jth number, interchange the. two 
numbers. 
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4. Print out the rearranged list of numbers. 
5. Stop. 


A flowchart of the procedure is shown in Fig. 5.5. 


START 
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Fig. 5.5 
The BASIC Program 


C program, let us refer to the list of integer constants as K. We will assume 


iti BASI x K. 
мас ап 101 elements. Hence we will set the maximum permissible value of the 


that K will never consist of more th: 


Mac M program is shown in Fig. 5.6. Notice the DIM statement near the start of the program (line 20), 


which establishes that K can contain as many as 101 elements. Observe also the use of FOR-TO loops in order 
to read in and print out the elements of К (e.g., see lines 40-60, 90-110 and 330-350). 
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10 REM PROGRAM TO REARRANGE А LIST ОЕ NUMBERS INTO ASCENDING ORDER 
20 DIM K(100) 

30 READ N 

40 FOR 1=1 TO N 

50 READ K(I) 

60 NEXT I 

70 PRINT “ORIGINAL LIST OF NUMBERS: " 

80 PRINT 

90 FOR I=1 TO N 

100 PRINT K(1); 


11O NEXT I 

120 PRINT 

130 

140 REM REPEAT INTERCHANGE N-1 TIMES 
150 

160 FOR Ізі TO М-1 

170 

180 REM FIND SMALLEST NUMBER IN LIST AND INTERCHANGE 
190 

200 FOR J=I+1 TO N 

210 IF K(J)>=K(I) THEN 280 

220 

250 REM INTERCHANGE K(J) AND K(I) 
240 

250 LET Ki=K(I) 

260 LET K(I)-K(J) 

270 LET K(J)-K1 

280 NEXT J 

290 NEXT I 

300 PRINT 

510 PRINT "REORDERED LIST OF NUMBERS:" 
320 PRINT 


330 FOR 1=1 TO N 

340 PRINT К(19; 

350 NEXT I 

360 DATA 20,595,78,1505,891,29,7,18,191,56,68,7051,509,212,46,726,1806 
370 DATA 289,401,1488,710 

380 END 


>RUN 


ЕХ5. 14 09:32 15-MAR 
ORIGINAL LIST OF NUMBERS: 


595 78 1505 891 29 7 18 191 34 68 7051 509 212 46 726 
1806 289 401 1488 710 
REORDERED LIST OF NUMBERS: 

7 18 29 36 46 68 78 191 212 289 401 509 595 710 726 
891 1488 1505 1806 7051 


TIME: 0.09 SECS. 


Fig. 5.6 


The actual rearrangement is carried out with a double FOR-TO loop, as described above (lines 140—290). 
Three REM statements are included in the sequence. These statements help to clarify the logic of the double 
FOR-TO loop. 

Finally, note that two DATA statements, containing 21 data values, are included near the end of the 
Program (lines 360 and 370). The first of these (the constant 20) is the value for N, which indicates that 20 
elements of K will be utilized in this particular example. Following are the 20 values of K, in their original order 
[.е., К(1)-595, K(2)=78, К(3)-1505,..., К(20)=710]. 

At the bottom of Fig. 5.6 is the output generated by this particular example. We see the original list of 
numbers at the top of the output, followed by the list of rearranged numbers immediately thereafter. 
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The elements of a table are manipulated in much the same manner as the elements of a list. 
Double FOR-TO loops are frequently required for table input/output operations and for manipula- 
tion of the table elements. We will see an illustration of this in the next example. 


EXAMPLE 5.15 Table Manipulation 


Consider the table of numbers shown in Table 5.2. Suppose we wish to sum all the elements in each row of 
the table, as well as all the elements in each column, Let us write a BASIC program which will allow us to carry 
out these elementary calculations. 


Table 5.2 


The Program Outline 
The computation will proceed in accordance with the following outline. 


Read the values for the number of rows (M) and the number of columns (N). 


2. Read the elements of the table (T) on a row-by-row basis by proceeding as follows for each value of I 
(the row counter) ranging from 1 to M: For a given value of I, let J (the column counter) range from 1 
to N. Read a value of T(I,J) for each value of I and J. 


3. Print the elements of T on a row-by-row basis. Hence for each value of I ranging from 1 to M, proceed 
as follows: For a given value of I, let J range from 1 to N. Print the value of T(I,J) for each value of I 


and J. 
4. Calculate and print the sum of the elements in each row and the sum of all individual row sums (i.e., the 


cumulative sum for all rows) as follows. 
(a) Set the initial value of the cumulative sum (S1) equal to zero. 
(b) Do the following for each value of I ranging from 1 to M. 
(i) Set the initial value of the row sum, S(I), equal to zero. 
(ii) For each value of J ranging from 1 to М, add Т(1,)) to $(1), i.e., let 


S()=S()+T(LJ) 
(iii) Print the current value for I and the corresponding value for Sd). 
(iv) Add the value of S(I) to $1, i.e., let 
$1=$1+$(1) š 
(с) Print the final value for 51 (і.е., the cumulative sum of all previously calculated row sums). 
5. Calculate and print the sum of the elements in each column, and the sum of all individual column sums 
(i.e., the cumulative sum for all columns) as follows. 
(a) Set the initial value of the cumulative sum (S1) equal to zero. 
(b) Do the following for each value of J ranging from 1 to N. 
(i) Set the initial value of the column sum, S(J), equal to zero. 
(i) For each value of I ranging from 1 to M, add T(I,J) to S(J), i.e., let 
5(7)-5(7)-Т(1,) 
(iii) Print the current value for J and the corresponding value for S(J). 
(iv) Add the value for S(J) to S1, i.e., let 
81-51-5(7) 
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Fig. 5.7 
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REM PROGRAM TO SUM ROWS AND COLUMNS OF A TABLE 
READ M,N 
REM READ ELEMENTS OF TABLE 


FOR I=1 TO M 
FOR J=1 TO N 
READ T(I,J) 
NEXT J 
NEXT I 


REM PRINT TABLE 


PRINT "GIVEN TABLE: " 
PRINT 
FOR 1=1 ТАМ 
FOR Ј=1 TON 
PRINT T(I,J); 
NEXT J 
PRINT 


220 NEXT I 
230 PRINT 


250 REM SUM ACROSS EACH ROW 


270 PRINT "SUM OF COLUMNS IN EACH ROW: " 
280 PRINT 

290 LET S1=0 

300 FOR I=1 ТОМ 

310 LET 8(1)=0 

520 FOR 4-1 ТОМ 

330 LET S(I)=S(I)+T(I,J) 

340 NEXT J 


PRINT “ROW ";I,"SUM-";S(I) 
LET 81=51+5 (1) 
NEXT I` 
PRINT 
PRINT "SUM OF ROW SUMS-";S1 
PRINT 
REM SUM DOWN EACH COLUMN 
PRINT "SUM OF ROWS IN EACH COLUMN: " 
PRINT 
LET 81-0 
FOR J=1 TO N 
LET S(J)=O 
FOR I-1 TO M 
LET S(J)=S(J)+T(I,J) 
NEXT I 
PRINT "COLUMN ";J,"SUM-";S(J) 
LET 81-81*8(J) 
NEXT J 
PRINT 


PRINT "SUM OF COLUMN SUMS-";S1 


DATA 5,6,6,0,-12,4,17,21,-8,15,5,5,718,0,11,3,1,717,12,7 


DATA 13,2,13,-9,24,4,-27,-3,0,14,8,-10 
END 
Fig. 5.8 
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(c) Print the final value for S1 (i.e., the cumulative sum of all previously calculated column sums). 
Note that the cumulative column sum should equal the cumulative row sum; hence this value of S1 
should equal the value printed in step 4. This serves as a check. 


6. Stop. 


Figure 5.7 contains a flowchart that corresponds to the above outline. 


The BASIC Program 

Figure 5.8 presents a complete BASIC program for this problem. Notice the nested FOR-TO loops that are 
used to read and print the elements of the table (see lines 70-110 and 170-220). Double FOR-TO loops are also 
used to form the row sums (lines 290-370) and the column sums (lines 460-540). 

Тһе DATA statements at the bottom of the program (lines 580 and 590) establish a data block having 32 
elements. The first two numbers are the values for M and N, which indicate that this particular table will have 
five rows and six columns. The remaining 30 numbers are the values for the elements of T, on a row-by-row 
basis (thus requiring the second subscript, J, to increase most rapidly when reading the data). 

We see that a DIM statement is not included in this program, since none of the subscripts take on values 
exceeding 10. If the array sizes were to be increased, then a DIM statement would, of course, be necessary. 
Finally, note that the program contains a number of REM statements and blank lines, which increase its 
readability and provide some indication of program logic. 

In Fig. 5.9 we see the output which is generated for this example. The given table is printed first, followed 
by the sum of the columns (elements) for each row and the cumulative sum of the row sums. Following these 
values are the individual column sums and the cumulative column sum. Notice that the cumulative row sum 
equals the cumulative column sum (81), as expected. 


GIVEN TABLE: 


SO IZ STMT 21 
Se IS в SE o 
11 73921 17 22717 
25-2 19 oU. 24. A 
ae? 53 ТОС чо 


SUM OF COLUMNS IN EACH ROW: 


ROW 1 SUM= 36 
ROW 2 SUM=-1 

ROW 5 SUM= 17 
ROW 4 SUM= 47 
ROW 5 SUM=-18 


SUM OF ROW SUMS= 81 


SUM OF ROWS IN EACH COLUMN: 


COLUMN 1 SUM=-5 

COLUMN 2 SUM= 17 
x COLUMN 3 SUM= 7 
COLUMN 4 SUM--3 

COLUMN 5 SUM- 43 

COLUMN & SUM- 22 


SUM OF COLUMN SUMS- 81 
Fig. 5.9 
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5.6 REREADING DATA—THE RESTORE STATEMENT 


In the last section we saw that a correspondence is always maintained between the variables 
whose values are to be read (i.e., the variables listed in the READ statements) and the individual 
data items in a data block (the numbers and strings in the DATA statements). This is accomplished 
by means of an internal “pointer” which indicates the next data item to be read. In fact, two pointers 
are maintained if the data block contains both numeric and string data—one for the numeric 
constants, the other for the strings. Each time a data item is read the pointer is automatically 
advanced to the next data item of the same type. 

There are certain kinds of problems that require some, perhaps all, of the data to be read more 
than once. To do this we must reset one or both pointers to the start of the data block. The 
RESTORE statement is used for this purpose. 

Тһе RESTORE statement consists of a statement number followed by the keyword RESTORE. 
The appearance of this statement causes each pointer to be reset to the first data item of the proper 
type within the data block. 


EXAMPLE 5.16 
A BASIC program contains the statements 


30 READ A,B,C 


60 RESTORE 
70 READ W,X,Y,Z 


200 DATA 1,3,5,7,9,11,13 


Statement number 30 causes the variable A to be assigned a value of 1, B a value of 3 and C a value of 5. When 
statement number 60 is encountered, the pointer is reset to the first number in the data block. Hence statement 
number 70 causes the variable W to be assigned a value of 1, X a value of 3, Y a value of 5 and Z a value of 7. If 
the RESTORE statement were not present, then W would be assigned a value of 7, X a value of 9, and so on. 

Notice that we have been concerned with only one pointer in this example since the data block contains 


only numeric constants. 

Some versions of BASIC permit the keyword RESTORE to be followed by an asterisk (*) or a 
dollar sign ($). If an asterisk is present then only the numeric pointer will be reset, whereas only the 
string pointer will be reset if the dollar sign is shown. Both an asterisk and a dollar sign are, however, 


not permitted in the same statement. 


EXAMPLE 5.17 


A BASIC program contains the statements 


50 READ A,B,M$,N$ 


150 RESTORE* 
160 READ C1,C2,F1$,F2$ 


250 DATA 2,4,RED,GREEN,6,8,BLUE, WHITE 
he variables A and B to be assigned the values 2 and 4, and the variables M$ and 


s RED and GREEN. The numeric pointer is reset by statement number 150. 
e values 2 and 4, whereas F1$ and F2$ will represent the 


Statement number 50 causes t 


N$ will be assigned the string: E 
Hence statement 160 causes СІ and C2 to be assigned th 


strings BLUE and WHITE. 
If statement number 150 were changed to 


150 RESTORES 
then the string pointer would be reset rather than the numeric pointer. Therefore C1 and C2 would be assigned 
the values 6 and 8, but the strings RED and GREEN would be assigned to F1$ and F2$, respectively. 
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Now suppose that statement 150 were changed to 


150 RESTORE 


Theh both pointers would be reset, resulting іп C1=2, C2=4, FI$- RED and F2$=GREEN. Finally, if 
statement number 150 were deleted entirely, then statement 160 would result іп C1=6, С2-8, FI$- BLUE and 


F2$= WHITE. 
It should be clear that the values assigned to A, B, M$ and N$ will be unaffected by the subsequent 


RESTORE and READ statements in this example. 


5.7 CLOSING REMARKS 


With this chapter we conclude our discussion of the elementary features of BASIC. We have 

` seen that use of the library functions allows the programmer to carry out certain programming 

operations (e.g., truncation, spacing of output data, etc.) as well as the more common mathematical 

operations. Collections of numbers and strings can be stored and manipulated by using lists and 

tables, and large quantities of data can be conveniently stored and assigned to program variables or 

array elements through the use of the READ and DATA statements. These features simplify the 
programming of a great many different problem situations. 


Review Questions 


5.1 What are library functions? What useful purpose do they serve? 

5.2 What other names are sometimes used for library functions? 

5.3 Name several of the more common library functions. State the purpose of each library function. 

5.4 What is meant by an argument? Do all library functions require arguments? 

5.5 How is a library function used in a BASIC program? 

5.6 What happens if a negative value is supplied to a library function that requires a positive argument? 
5.7 What is meant by truncation? Present an example illustrating truncation. 


5.8 What is the purpose of the INT function? What happens when the INT function receives a positive 
argument? A negative argument? 


5.9 What is the purpose of the TAB function? In which statement is it used? 


5.10 Сап a formula be used as a library function argument? Can a reference to another library function be 
used for this purpose? 


5.11 What happens if a library function requiring an integer argument is supplied with an argument having a 
noninteger value? 


5.12 What is meant by a list? A table? 


5.13 What is meant by a one-dimensional array? A two-dimensional array? Compare your answer with the 
answer to the previous question. 
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5.14 What is meant by the elements of a list or table? What do these elements represent? 

5.15 Сап a single array contain both numbers and strings? 

5.16 What is a subscripted variable? How do we refer to a particular subscripted variable? 

5.17 Can a formula be used as a subscript? Can a reference to a library function be used for this purpose? 
5.18 What restriction applies to the values that a subscript can take on? 

5.19 What is the purpose of а DIM statement? When must this statement appear in a BASIC program? 
5.20 Summarize the rules for writing а DIM statement. 

5.21 Can a formula or a reference to a library function appear in a DIM statement? 

5.22 Is there any purpose in specifying the size of a small array in а DIM statement? Explain. 

5.23 What is the purpose of the READ and DATA statements? 

5.24 Summarize the rules for writing a READ statement. 

5.25 Summarize the rules for writing a DATA statement. 

5.26 Does each READ statement require its own data statement? Explain. 

5.27 What is meant by a data block? How is a data block formed? 


5.28 Are data entered via an INPUT statement as permanent as data entered via READ-DATA statements? 
Explain. 


5.29 Summarize the rules that must be observed when placing data items іп a data block. 
5.30 Where are DATA statements usually placed іп a BASIC program? Why? 

531 How are list and table input/output operations usually carried out in BASIC? 

532 Discuss the purpose and use of pointers in connection with a data block. 


5.33 What is the purpose of the RESTORE statement? Cite three different ways that this statement can be 


written. 
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5.34 


5.35 
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Solved Problems 


Write a BASIC statement that corresponds to each of the following algebraic equations. 
(a) z-tant 
10 LET Z- TAN(T) 


(b) w= log, (v) 
10 LET W=LOG(V) 


(c) у= ае? sin сх 


10 LET Y=A*EXP(B*X)*SIN(C*X) 


іад V Б? — 4ac 


2a 
10 LET X1-(-B-SOR(B12-4*A*C))/(2*A) 


(d) x 


Write a BASIC statement for each of the following situations. 


(a) Determine the absolute value of the difference between the variables U and V. Assign 
this value to the variable W. 


10 LET W=ABS(U-V) 


(b) Determine the sign of x. If x is negative, go to statement 50; if x equals zero, go to 
statement 20; and if x is positive, go to statement 170. 


100 ON SGN(X)+2 GO TO 50,20,170 


(c) Determine the largest integer which algebraically does not exceed z, where z = x2— y. 
Assign this integer to the variable I. 


10 LET I-INT(Xt2-Y12) 


(d) In (c) above, if x = 2.5 and y = 6.3, what value will be assigned to the variable I? 
х?- у? = —33.44, hence I = —34. 


(e) Print the values of X$, X, Y$ and Y on one line. Let the string represented by X$ begin 
in the 10th column, followed immediately by the value of X. Similarly, let Y$ begin in 
the 46th column, followed immediately by Y. 


100 PRINT TAB(9);X$;X;TAB(45);Y$;Y 


Each example below shows a reference to one or more subscripted variables. Describe the 
type of array referred to in each case. 


(a) 10 DIM C1(100),N$(100,3) 


C1 is a numeric list; N$ is a string table. 
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(b) 50 LET P(D=P(D+Q(LJ) 


P is a numeric list; Q is a numeric table. 


(c) 100 IF A$(5)=G$ THEN 220 


А$ is a string list. 


(d) 150 ON X(K(D,J(D) GO TO 100,20,180,20,250 


X is a numeric table; K and J are numeric lists. 


(e) 200 PRINT X$(K),N1(K),N2(K) 


X$ is a string list; N1 and М2 are numeric lists. 


5.37 Write one or more statements to carry out each of the following operations. 
(a) Sum the first 100 elements of the numeric list T. 


10 LET S-0 
20 FOR I-0 TO 99 
30 LET S=S+T() 
40 NEXT 1 


(b) Print the even elements of the numeric list T for values of the subscript ranging from 0 to 
100, i.e., print T(0), T(2), Т(4),..., T(100). 
10 FOR I-0 TO 100 STEP 2 


20 PRINT T(D: 
30 NEXT I 


(c) Calculate the sum of all elements of the numeric table P. Let M indicate the number of 
rows and N the number of columns. 
10 LET S=0 


20 FOR I-1 TO M 
30 FOR J=1 TO N 


40 LET S=S+P(LJ) 
50 NEXT J 
60 NEXT I 


(d) Print the elements in the third column of the string table K$. Display the output in 


columnar form, beginning in column number 12 (the column number here refers to the 


location on the console). 


10 FOR I-1 TO M 
20 PRINT ТАВ(12);К$(,3) 
30 NEXT I 


priate READ and DATA statements for each situation described below. 


(a) Assign the values —1.6E-6, —500, .4077, MAY, OCTOBER, 100, 110, 120, 130, 140 and 
150 to the variables C1, C2, C3, X$, Y$, 71), Z(2), Z(3), Z(4), ZS), and Z(6). List each 
subscripted variable separately in the READ statement. 
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10 READ CL,C2,C3,X$,Y$,Z(1),Z(2),Z(3),Z(4),Z(5),Z(6) 


200 DATA -1.6Е-6,-500,.4077,МАҮ,ОСТОВЕЕК,100,110,120,130,140,150 
Тһе READ апа DATA statements сап also Бе broken ир if desired, e.g., 


10 READ С1,С2,С3,Х$,У$ 
20 READ Z(1),Z(2),Z(3),Z(4),Z(5),Z(6) 


200 DATA -1.6Е-6,-500,.4077 
210 БАТА МАҮ,ОСТОВЕЕ,100,110 
220 DATA 120,130,140,150 


(b) Assign (һе values given іп рагі (а) above to their respective variables. Use а FOR-TO 
loop for the array elements. 


10 READ C1,C2,C3,X$,Y$ 
20 FOR I=1 TO 6 

30 READ Z(D 

40 NEXT I 


200 DATA -1.6Е-6,-500,.4077, МАУ, OCTOBER 
210 DATA 100,110,120,130,140,150 


(с) Assign the values given in part (а) above to their respective variables, as in part (b). Ata 
later point in the program, reset the string pointer and assign the strings MAY and 
OCTOBER to the variables F$ and G$. 


10 READ С1,С2,С3,Х$,У$ 
20 FOR I-1 TO 6 

30 READ Z(I) 

40 NEXT I 


100 RESTORE$ · 
110 READ F$,G$ 


200 DATA —1.6E-6,-500,.4077,MAY,OCTOBER 
210 DATA 100,110,120,130,140,150 


Supplementary Problems 


Find out which library functions are available at your particular installation. (Refer to the BASIC 
reference manual published by the manufacturer of your computer.) Specify the purpose of each library 
function. Determine exactly how each function is referenced. 


Write a BASIC statement that corresponds to each of the following algebraic equations. 
(а) у= Vsinx-cosx 

(b) p=qe* 

(c) c=log,Vla + 5] + log. Va — b| 

(4) м= |и– v|-]u- v| 

(e) z = cos (x + arctan у) 
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Write а BASIC statement for each of the following situations. 
(a) Determine the sign of the quantity (ab — cd)/(f + g). Go to statement number 75 if the quantity is 
розшуе, to statement 260 if the quantity is zero, and to statement 135 if the quantity is negative. 


(b) Print the following on one line of the console: “Х-”, followed by the value of the variable X; 
“Y=”, followed by the value of Y; and “Z=”, followed by the value of Z. Begin printing in 
columns 4, 28 and 52, respectively. 


(c) Determine if the value of the variable N is even or odd, assuming that N has a positive integer 
value. (Hint: Compare the value of N/2 with the truncated value of N/2.) 


(d) In part (c) above, what will happen if N has a negative integer value? 


Each example below shows a reference to one or more subscripted variables. Describe the type of array 
referred to in each case. 

(a) 75 LET N$(3)- "ERROR-CHECK" 

(b) 20 DIM A(12,25),A$(12,25),B(12),C$(25) 

(c) 100 PRINT P$(D,P(LJ) 

(d) 50 IF Z(J1,J2)<10 THEN 185 


Shown below are several BASIC statements and sequences of statements containing subscripted 
variables. Some of the examples are written incorrectly. Identify all errors. 
(а) 50 LET C(LJ)- (3*X12-2*Y13)(17*Z) 
(b) 75 LET P(K,5)=Q(K+1,J)+R(K,J+1) 
(с) 20 МРОТ М,М 
30 DIM A(M,N),X(N), YM) 
(d) 10 DIM K(100),W(10,20),C1,C2,K (100) 
(e) 150 LET $=$+Т(К,-3) 
(f) 200 LET X(K(D)=Y(K(I+1))*Z(K(I-1)) 


Write one or more statements to carry out each of the following operations. 

(a) Calculate the square root of the sum of the squares of the first 100 odd elements of the numeric list 
X, i.e., calculate [X X3) X5 +++ +Х(199)7]'!7. 

(b) Calculate the elements of the numeric table H which has 8 rows and 12 columns. Each element of H 
is determined by the formula 
1 

“ізу-1 


hy 


(c) A numeric list K has N elements. Print the value of each subscript and each corresponding element 
for those elements whose value does not exceed 15. Display the output in two columns, with the 
value of the subscript in the first column and the corresponding subscripted variable in the second 
column, Label each column. Start the first column of output in column number 8 (the column 
number here refers to the location on the console) and the second column of output in column 


number 44. | 

A numeric table W has К rows and K columns. Calculate the product of the terms on the main 

diagonal of W, where the main diagonal runs from upper left to lower right, i.e., calculate 

W(1,1)*W(2,2)*W(3,3)* . . . *W(K,K). 

(e) Print the elements in the fourth column of the string table M$. Display the output in columnar 
form, beginning in column number 10 (the column number here refers to the location on the console). 


Assume that M$ contains M rows. 
Repeat problem (e) above, displaying the output in row form with one blank space between each 


(a) 


(Р) 


element. 
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(g) Print the elements in the fifth row of the string table M$. Display the output in row form with one 
blank space between each element. Assume that M$ contains N columns. 


Write appropriate READ and DATA statements for each situation described below. 
(a) The following values are to be assigned to the list L$, the variables P,Q,R and H$, and the table T. 


L$(1)=WHITE Р=2.25Е+5 T(1,1)=1 T(2,1)=-2 
L$(2)= YELLOW Q-6.08E-9 T(12)--3 T(2,2)=4 
L$(3)- ORANGE В=-1.29Е+12 T(1,3)=5 T(2,3)=-6 
L$(4)=RED H$-RESTART T(1,4)=-7 T(2,4)=8 


List each subscripted variable separately in the READ statements. 
(b) Repeat part (a) above, using FOR-TO loops for the array elements. 


(c) Repeat part (a) above, using FOR-TO loops for the array elements, as in part (b). At a later point 
in the program, reset the numeric pointer and assign the values 2.25E+5, 6.08E-9 and —1.29E+ 12 
to the variables P1, Q1 and В1. 

(d) Repeat part (a) above, using FOR-TO loops for the array elements, as in part (b). At a later point 
in the program, reset the pointer and assign the strings WHITE, YELLOW, ORANGE and RED 
to the variables A1$, A2$, A3$ and A4$. 


Programming Problems 


Alter the program shown in Example 5.5 so that the logarithm is not calculated when x has a value of 
zero. Include a provision for printing eight successive asterisks for the log of zero, thus indicating an 
overflow condition. 


Write a BASIC program similar to the one in Example 5.5 that will generate a table of x, sin? x, cos? x, tan? x, 
cotan? x, sec? x and cosec? x. (Note that sec x = 1/соѕ x, and cosec x = 1/sin x.) Generate 101 entries for 
evenly spaced values of x between 0 and z. (That is, let x = 0, 7/100, 27/100, . . . , 997/100, т.) Be sure that 
the output is adequately labeled. 


Write a BASIC program which will produce a table of values of the equation 
у = 2е791' sin 0.51 


where t varies between 0 and 60. Allow the size of the t increment to be entered as an input parameter. 


Extend the word unscrambler program in Example 5.9 so that it prints out all possible two-letter, 
three-letter and four-letter combinations of any given four letters. Select a set of four letters and execute 
the program. Identify all valid English words by inspecting the output visually. Can you determine, 
without running the program, how many different combinations of two or more letters will be generated? 


Extend the program in Example 5.14 so that a list of numbers can be rearranged in any one of the 
following four ways. 

(a) Smallest to largest, algebraically (that is, largest negative to largest positive values) 

(b) Smallest to largest in magnitude (ignoring signs) 

(c) Largest to smallest, algebraically 

(d) Largest to smallest in magnitude 

(Note that the elements of the list need not necessarily have positive values.) 


Write the program in such a manner that only one rearrangement is carried out each time the 
program is executed. Include in the program a variable whose value is entered via an INPUT statement 


5.51 


5.52 
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each time the program is executed. Let the particular rearrangement of the list of numbers be 
determined by the value assigned to this variable (e.g., if A=1 then rearrange from smallest to largest, 
algebraically; if A=2 rearrange from smallest to largest in magnitude; etc.). 

Use the program to rearrange the numbers given in Table 5.3. Rearrange the numbers all four ways. 


Table 5.3 


Write a BASIC program that will rearrange a list of words into alphabetical order. To do so, enter the 
words in a list, with each element representing one complete word. The list of words can then be 
alphabetized in the same manner that a list of numbers is rearranged from smallest to largest (see 


Example 5.14). 


Use the program to rearrange the names given in Table 5.4. Be careful with the first initials. 


Table 5.4 


Washington 
Adams, J. 
Jefferson 
Madison 
Monroe 
Adams, J. Q. 
Jackson 

Van Buren 
Harrison, W. H. 
Tyler 

Polk 

Taylor 
Fillmore 
Pierce 
Buchanan 
Lincoln 
Johnson, A. 
Grant 

Hayes 
Garfield 


Rewrite the BASIC progr: 

column will be calculated. 

Write a BASIC program that will 
HP = [1 + G/100)]" 


In this formula i represents the annual inte 
number of years. 


Arthur 
Cleveland 
Harrison, B. 
McKinley 
Roosevelt, T. 
Taft 

Wilson 
Harding 
Coolidge 
Hoover 
Roosevelt, F. D. 
Truman 
Eisenhower 
Kennedy 
Johnson, L. B. 
Nixon 

Ford 

Carter 
Reagan 


am in Example 5.15 so that the product of the elements in each row and each 
generate a table of compound interest factors, F/P, where 


rest rate, expressed as a percentage, and n represents the 
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Let each row in the table correspond to a different value of n, with n ranging from 1 to 30 (hence 30 
rows). Let each column represent a different interest rate. Include the following interest rates; 4, 4.5, 5, 
5.5, 6, 6.5, 7, 7.5, 8, 8.5, 9, 9.5, 10, 11, 12 and 15 percent (hence a total of 16 columns). Be sure to label 
the rows and columns appropriately. 


Write a BASIC program that will read in a set of temperatures, determine an average and then calculate 
the deviation of each temperature about the average. 
The deviation is defined as 


D=T(I)-A 


where A represents the average temperature. Notice that the deviation will be positive if the tem- 
perature is above the average and negative if the temperature is below the average. 

Print out the average temperature, followed by three columns containing the values for J, T(J), and 
D, respectively. Be sure that everything is clearly labeled. 

Test the program using the following set of temperatures: 28.2, 29.3, 33.7, 42.0, 58.4, 71.3, 84.1, 83.8, 
74.5, 53.9, 41.6, 34.4. 


Extend the program to calculate student grade averages [Problem 4.48(i)] so that the deviation of 
each student’s average about the overall class average will be determined. Print out the class average, 
followed by each student's name, exam grades, final score and deviation about the class average. Be sure 
that the output is logically organized and clearly labeled. 


Consider the following list of countries and their capitals 


Canada Ottawa 
England London 
France Paris 

India New Delhi 
Israel Jerusalem 
Italy Rome ' 


Japan Tokyo 
Mexico Mexico City 
People's Republic of China Peking 
United States Washington 
U.S.S.R. Moscow 
West Germany Bonn 


Write a conversational-style BASIC program that will accept the name of a country as input and print 
out the corresponding capital, and vice versa. 


Several different types of technical problems are described below. Prepare a detailed outline, a 
corresponding flowchart, and a complete BASIC program for each problem 


(a) Suppose we are given a numeric table A having M rows and N columns and a numeric list X having 
N elements. We wish to generate a numeric list Y by carrying out the following operations. 
Ү(1)=А(1,1)*Х(1)+А(1,2)*Х(2)+ 11+ +A(1,N)*X(N) 
Ү(2)- А(2,1)*Х(1)+А(2,2)*Х(2)+ - - - +A(2,N)*X(N) 


¥(M)=A(M,1)*X(1)+ A(M,2)#X(2)+ --- +A(M,N)*X(N) 


Print out the input data (i.e., the values for the elements of A and X), followed by the computed 
values for the elements of Y. 


Use the program to process the following set of data. 
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LSP Mer ow TES 
ЛЕ TUE Бе о 
8147556 7278 9710 
A О Он 
SONT ES Отоо 
6789 10 11 12 13 
1 
-8 
3 
Suelo 
5 
-4 
7 
“2 


(b) Suppose that А is a numeric table having K rows and M columns and that В is a numeric table 
having M rows and N columns. We wish to calculate the elements of the numeric table C, where 
each element of C is determined by 

C(1,J)- ACL, 1)*B(1,J)+ A(1,2)*B(2,J)+ °‘ + A(1,M)*B(M,J) 


for I=1,2,...,K and J=1,2,...,N. Print ош the elements of A, В and C. 
Use the program to process the following set of data. 


20133607 723274 
АЗА 5.52: 1 
0 3 -97 67 4/3 


6/5 007253703 
5 7/2 3/4 -3/2 
B= ылы t TONO 
9A E ЭЗ ЗУ В 
44/2. 0 814 


(c) The Legendre polynomials can be calculated by means of the formulas 


Po = 1 
P, = x 
2n-1 jns 
P, = (S), (2). 
n n 


where n = 2,3,4,... and x is any number between —1 and +1. : 
Write a BASIC program that will generate a table of Р, vs. x for any specified value of n up to 
and including n = 10. Generate 201 values of Р, in each table, based upon evenly spaced values of 


x. (That is, let x = —1.00, —0.99, —0.98,..., —0.01, 0, 0.01, . . . , 0.98, 0.99, 1.00.) Output the results 
in a legible, columnar form. 
(d) Consider a sequence of real numbers, xi, i = 1,2,..., M. The mean is defined as 


Xi + X2 $ : ` * + XM 
M 


x= 


the deviation about the mean is 
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d, = xi — x 
and the standard deviation is 
ane وز ت ا ا‎ 
ANS 


Read in the first M elements of a one-dimensional array. Calculate the sum of these elements, 
the mean, the deviations, the standard deviation, the algebraic maximum and the algebraic 
minimum. Apply the program to the temperature data given in Problem 5.54. 

Repeat the computation for K different arrays. Calculate the overall mean, the overall 
standard deviation, the absolute (largest) maximum and the absolute (algebraically smallest) 
minimum. 

Write a BASIC program to calculate the variance, à, of a list of numbers in two ways, using the 
formulas 


ë= [@ — XP + (xa- XY (xu — xy] 


and 


In these formulas x is the mean (average) value, calculated as 
yad (xı + xit хм) 
w E E Û 1 ++ 
M 


and M is the number of values in the list. 

Mathematically the two formulas for 5 can be shown to be identical. When the given numbers 
have values that are very close together, however, then the value obtained for 5 using the second 
formula can be considerably in error. The reason for this is that we must calculate the difference 
between two values that are very nearly equal. Such calculated differences can be highly inaccurate. 
The first formula for the variance yields much more accurate results under these conditions. 

Demonstrate that the above statements are true by calculating the variance of the data given in 
Table 5.5. (The correct value is 5 = 0.00339966.) 


Table 5.5 


(Note: This example disproves the common misconception that a computer always yields answers that 
are absolutely correct.) 


Home mortgage costs are determined in such a manner that the borrower pays the same amount of 
money to the lending institution each month throughout the life of the mortgage. The fraction of 
the total monthly payment which is required as an interest payment on the outstanding balance of 
the loan varies, however, from month to month. Early in the life of the mortgage most of the 
monthly payment is required to pay interest, and only a small fraction of the total monthly payment 
is applied toward reducing the amount of the loan. Gradually, the outstanding balance becomes 
smaller, which causes the monthly interest payment to decrease, and the amount that is used to 
reduce the outstanding balance therefore increases. Hence the balance of the loan is reduced at an 
accelerated rate. 


Typically the іса. чы buyer knows how much money to borrow and the time 
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required for repayment. He or she then asks a lending institution how much the monthly payment 
will be at the prevailing interest rate. The home buyer should also be concerned with how much of 
each monthly payment is charged to interest, how much total interest has been paid since first 
ом the money, апа how much money is still owed the lending institution at the end of each 
month: 


Write a BASIC program that can be used by a lending institution to provide a potential 
Customer with this information. Assume that the amount of the loan, the annual interest rate and 
the duration of the loan are specified. The amount of the monthly payment is calculated by means 
of the formula 


а 
А= pf" | 
a+ aL 

where A = monthly payment, dollars 

P = total amount of the loan, dollars 

i = monthly interest rate expressed as a decimal, e.g., 3% would be written 0.005 

n = total number of monthly payments 
The monthly interest payment can be calculated from the formula 

I= iB 
where I = monthly interest payment, dollars 

B = outstanding balance of the loan, dollars 
Тһе outstanding balance is simply equal to the original amount of the loan, less the sum of the 
previous payments toward principal. The monthly payment toward principal, i.e., the amount which 
is used to reduce the outstanding balance, is simply 

Т=А-1 
where Т = monthly payment toward principal 


Use the program to calculate the cost of a 25-year, $30,000 mortgage at an annual rate of 
interest of 8 percent. Then repeat the calculations for an annual interest rate of 8.5 percent. How 
significant is the additional half percent in the interest rate over the entire life of the mortgage? 


The method used to calculate the cost of a home mortgage in Problem 5.57(f ) above is known as а 
constant payment method, since each monthly payment is the same. Suppose instead that the monthly 
payments were computed by the method of simple interest. That is, suppose that each month the same 
amount is paid toward reducing the loan. Hence 
T = Pin 
In addition, interest is paid each month, the amount depending on the size of the outstanding balance; 
that is, 
I-iB 
; 
Thus the monthly payment А = T + J will decrease each month, as the outstanding balance diminishes. 
Write a BASIC program to calculate the cost of a home mortgage using this method of repayment. 


Label the output clearly. Use the program to calculate the cost of a 25-year, $30,000 loan at 8 percent 
annual interest. Compare the results with those obtained in Problem 5.57(/). 


Suppose we are given a set of tabulated values for y vs. x, i.e., 


Yo yi y2 к/ф Yn 


Xo xi X2 ғ Xn 


and we wish to obtain a value of y at some x that lies between two of the tabulated values. This 
problem is commonly solved by interpolation, 1.е., by passing a polynomial y(x) through the 
n points such that y(xo) = уо, у(х) = y1,---+ ¥(%n)= Yn and then evaluating y at the desired value 


of x. š po 
“д 
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A common way to carry out the interpolation is to use the Lagrange form of the interpolating 
polynomial. To do this we write 


у(х) = fo(x): yot falx) y+ °°° + fa) Yn 
where /Ғ(х) is a polynomial such that 
(x — хо)(х — xi) ° ° (X — xi) (x — жа) ° (x — Xn) 
и (xi — хо)(м — x1) : (% — Xi-1)(%ı — Xi+1) ° ° ° (xı — xn) 


Notice that f,(x,) = 1 and f,(x,) = 0, where x is a tabulated value of x different from x,. Therefore 


we are assured that y(x;)= у. 

Write a BASIC program to read in n pairs of data, where n does not exceed 10, and then 
obtain an interpolated value of y at one or more specified values of x. Use the program to obtain 
interpolated values of y at x = 13.7, x = 37.2, x = 112 and x = 147 from the data listed in Table 5.6. 
Determine how many tabulated pairs of data are required in each calculation in order to obtain a 
reasonably accurate interpolated value for y. 


Table 5.6 


0.21073 | 0.37764 0.49011 0.50563 0.49245 0.47220 0.43433 | 0.33824 | 0.19390 
Pe] co [о |o a Ü | wo s e | | [ы | 


Example 4.5 describes the method of successive substitutions for solving an algebraic equation of the 
form x = F(x) by means of an iterative technique employing the recursive formula xi; = F(x). 

Another method, usually more efficient, for solving equations of this type is Newton-Raphson 
iteration (sometimes called Newton's method). To use this method the algebraic equation must be 
written in the form f(x) = 0. The recursive formula 


is then employed, where f'(x) represents the first derivative of f(x) evaluated at x,. 

The iteration is carried out in the same manner as the method of successive substitutions. That 
is, a value of x+) is calculated from the recursive formula and compared with x,. If the two values 
are not sufficiently close, then the value for xj; is substituted into the right-hand side of the 
recursive equation and the computation is repeated. 

Write a BASIC program to solve a nonlinear algebraic equation by either of the above 
techniques. Determine which method will be used by assigning an appropriate numerical value to 
some input variable. 

Use the program to solve the equation x + cos x = 1+sin x for some value of x bounded 
between 7/2 and т. Solve using both techniques. Which method seems to be the best? 


Suppose we are given a number of discrete points (xi, уз), (ха, у2),..., (Xn, ya) Which are read from 
a curve y = f(x), where x is bounded between x; and x,. We wish to approximate the area under 
the curve by breaking up the curve into a number of small rectangles and calculating the area of 
these rectangles. (This is known as the trapezoidal rule.) Use the formula 


A = Қу + ya — xi) + уг + уз)(хз— x2) + ` yu Yn)(Xn — x4-1) 


Notice that the average height of each rectangle is given by Қу; + y;+ı) and that the width of each 
rectangle is equal to (xi х), i= 1,2,..., (n – 1). 

` Use the program to calculate the area under the curve y = x? between the limits x = 1 and 
x = 4. Solve this problem first with 16 evenly spaced points, then with 61 points, and finally with 301 
points. Note that the accuracy of the solution will improve as the number of points increases. (The 
exact answer to this problem is 63.75.) 


Problem 5.57(j) above describes a method known as the trapezoidal rule for calculating the area 
under a curve y(x), where a set of tabulated values (уз, х), (уз, х2),..., (Yn, Xn) is used to describe 
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the curve. If the tabulated values of x are equally spaced, then the equation given in Problem 
5.57(j) can be simplified to read 


A = yit 2y2 + 2yst yet +2, а+у,) Ax 


where Ах is the distance between successive values of 23] 

Another technique that applies when there is an even number of equally spaced intervals, i.e., 
an odd number of data points, is Simpson’s rule. The computational equation for implementing 
Simpson's rule is 


A = (yı + 4y2 + 2ys + 4ya + 2ys (ы %4у,-і%у,)Ах 


For а given value of Ах, Simpson's rule will yield a more accurate result than the trapezoidal rule. 

Write a BASIC program for calculating the area under a curve using either of the above 
techniques, assuming an odd number of equally spaced data points. Determine which method will 
be used by assigning an appropriate numerical value to some input variable. Allow for as many as 
101 sets of data, where the tabulated data points can either be read into the computer or calculated 


internally using an algebraic equation. 
Use the program to compute the area under the curve. 


уе 
where x ranges from 0 to 1. Calculate the area using each computational technique, and compare 
the results with the correct answer of A=0.7468241. 


A first-order differential equation with a known initial condition can be written as 


with у(хо) = yo, where yo represents a known numerical value. When solving a differential equation 
the objective is to obtain an equation, or a set of tabulated values, for y as a function of x. 

A differential equation of this type сап be solved by successively "stepping ahead" a small 
distance in the x direction. In other words, beginning with the known value у(хо), a value is 
calculated for y(xi), where хі = xo + Ах and Ax is some prescribed small number (the step size). 
Then a value is obtained for y(xz), where x2= хі + Ax; then у(хз), where хз = х: + Ах; and so оп, 


until a sufficient number of points have been calculated. е 
The easiest way to calculate a value for у(х;+1), given а value for y(x), is to use Euler's 


method: 


yia = Yi + f(xi, yi) Ах 


where y; represents y(x;), yi«1 represents y(xi+1) and f(xi, yi) represents dy/dx evaluated at (xi, у). 
Euler's method is very easy to work with, but it results in a rather inaccurate approximation for the 
curve y(x) unless Ах is chosen to be very small. Therefore a great many points may be required in 


order to calculate у(х) over some reasonably large interval of x, xo = x = хи. 
A method that results in much more accurate values for y;+ı is the fourth order Runge-Kutta 


method: 
уна = у + (kı + 2k2+ 2ks + Ка) 


where kı = f(xi, yi) Ax 
k2= f(x; + Ax/2, y, + k1/2) Ax 
ks = f(xi + Ax/2, yı + k2/2) Ax 
k4 = f(xi + Ax, yi + Кз) Ах 


Thus for a given point (xi, y;), the procedure is to calculate x;+1 = xi + Ax, then calculate values for 


kı, Кз, ks and Ка, and finally obtain a value for у+1. ; қ ) 
Write a BASIC program which will solve a first-order differential equation with a known initial 
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condition using either of the above two techniques. Determine which method will be used by 
assigning an appropriate numerical value to an input variable. Specify the step size (Ax) and the 


total number of steps (n) as input parameters. 
Use the program to solve the differential equation 


d. 
келш m 0=х=2 


ах 
where у(0) = 1. Obtain a solution using each of the above methods. Compare the results obtained 
with the correct solution, which is given by the equation y = 2e^* + x — 1. Determine how small the 
step size must be for each method in order to obtain a solution which is accurate to three significant 
figures. 


PART Il: Advanced BASIC 


Chapter 6 
Functions and Subroutines 


6.1 DEFINING А FUNCTION—THE DEF STATEMENT 


To avoid repeated programming of the same calculations, the programmer will want to write his 
or her own functions, to be used along with the library functions. A single-line function is defined by 
means of the DEF (DEFINE) statement. This statement is composed of a statement number, the 
keyword DEF and the function definition. The function definition itself consists of the function name, 
followed by an equal sign, followed by an appropriate constant, variable or formula. If the function 
requires arguments, then they must appear immediately after the function name, enclosed in 
parentheses and separated by commas. Only nonsubscripted variables are permitted as arguments in 
a function definition. 

Both numeric and string functions can be defined with the DEF statement. (A numeric function 
returns a numeric value; a string function returns a string value.) If the function is numeric, then the 
function name must consist of three letters, the first two of which must be FN. Thus there can be as 
many as 26 separate numeric functions in a single program (ЕМА, FNB, ЕМС, . . .). 

The name of a string function must consist of three letters followed by а-4оПаг sign. Again the 
first two letters must be FN. As many as 26 separate string functions can be defined in a single 
program (FNAS, FNB$, ЕМС, ...). A numeric and a string function having the same three letters 
(e.g., FNP and FNP$) are separate entities and may therefore appear in the same program. 


EXAMPLE 6.1 
Three typical single-line function definitions are shown below. 


10 DEF FNA(X)- Х13+2+Х12-3+Х+4 
20 DEF FNC$-"NAME AND ADDRESS:" 
30 DEF FNR(A,B,C)- SOR(A1T2*B124C12) 
The first and third statements define the numeric functions FNA and FNR, and the second statement defines the 


string function FNC$. Notice that the second function does not contain an argument. Also, note that the third 
function makes use of the library function SOR in the function definition. 


Some versions of BASIC require that function definitions precede the corresponding function 
references; other versions allow function definitions to appear anywhere in a BASIC program. In either 
event, it is good programming practice to group together all function definitions and place them near the 
beginning of a program. This contributes to an orderly and legible program structure. 

It should be clear that the presence of a DEF statement serves only to define a function. In order 
to evaluate the function it is necessary to refer to the function name elsewhere in the program, just as 
we would do with a library function. We will see how this is accomplished in the next section. 


6.2 REFERENCING А FUNCTION 


A function is referenced (evaluated) by specifying the name of the function within a BASIC 
statement, as though the function name were an ordinary variable. The function name must be 
followed by an appropriate set of arguments, enclosed in parentheses and separated by commas. 

When a function is evaluated, the values of the arguments are specified by the function reference, 
not the function definition. For this reason the arguments appearing in a DEF statement are called 
dummy arguments. The names of the arguments in the function reference need not be the same as 
those in the function definition. However, the number of arguments must be the same, and the 


arguments must be of the correct rype (i.e., numeric or string). 
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EXAMPLE 6.2 
Shown below is the skeletal structure of a BASIC program containing two references to a programmer- 
defined function. 


10 DEF FNA(X)=X13+2*X12-3*X+4 
50 LET W=FNA(Y)+Z 


90 IF FNA(C)>=C1 THEN 140 


Statement number 50 causes the function FNA to be evaluated using the current value of the variable Y as an 
input parameter. (Hence the function will return the value of Y13+2*Y12-3*Y+4.) In statement 90 the same 
function is evaluated using the current value of C (thus returning the value of Ct3+2*Ct2—3*C+4). 


The arguments in a function reference must correspond to the dummy arguments on a 
one-to-one (argument-for-argument) basis when two or more arguments are required. Again the 
correspondence must be with respect to the number of arguments and the type of each argument but 
not with respect to the names of the arguments. 


EXAMPLE 6.3 
A BASIC program contains the following statements. 
20 DEF FNR(A,B,C)- SOR(A1T2*B124C12) 


80 LET A=FNR(C,X,Y) 


The LET statement (line 80) will cause the function SQR(C12+X12+Y12) to be evaluated and the value 


assigned to the variable A. 
Notice that the function definition (line 20) and the function reference (line 80) contain three numeric 
arguments each, but the names of the arguments do not correspond. 


Recall from Section 6.1 that the arguments appearing in a function definition (the dummy 
arguments) must be nonsubscripted variables. We have much more freedom, however, in a function 
reference. Here the arguments can be written as constants, subscripted variables, formulas or 
references to other functions. It is the value of each argument that is actually used in the calculation. 


EXAMPLE 6.4 
A BASIC program contains the statements 
30 DEF FNR(A,B,C)- SOR(A12*B124 C12) 


170 LET X3=FNR(K(I),5*(P+Q),LOG(T)) 


Notice that the function definition contains only nonsubscripted variables as arguments. In the function 
reference, however, we see that the arguments are expressed as a subscripted variable, a formula and a reference 
to a library function. Execution of the program will cause the function 

SOR(K(1)12* (S*(P+Q))t2+LOG(T)t2) 


to be evaluated. The resulting value will then be assigned to the variable X3. 


The variables used in a function definition need not be confined to the arguments. Other 


program variables (including subscripted variables) may also appear. When the function is evaluated, 
the most recently assigned values of these variables will be used. 
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EXAMPLE 6.5 


The skeletal structure of a BASIC program is shown below. 
30 DEF FNZ(X,Y)=(C1*X+C2=*Y)/(C1+C2) 


60 LET СІ-10 
70 LET C2-20 
80 LET R=FNZ(P,Q) 


Execution of statement number 80 will cause the function 

(10«Р--20«О)/(10--20) 
to be evaluated. Notice that the values of СІ and C2 аге not supplied as arguments. The most recently assigned 
values for СІ and C2 (i.e. С1=10 and C2=20) are used when the function is evaluated. 


In Example 6.6 below we see a more comprehensive illustration of the use of a programmer- 
defined function. 


EXAMPLE 6.6 Search for a Maximum 
Suppose we wish to find the particular value of x which causes the function 


y=xcosx 


to be maximized within the interval bounded by x = 0 on the left and x = т on the right. We will require that 
the maximizing value of x be known quite accurately. We will also require that the search scheme be relatively 
efficient in the sense that the function y = x cos x should be evaluated as few times as possible. 

An obvious way to solve this problem would be to generate a large number of closely spaced trial functions 
(that is, evaluate the function at x = 0, х = 0.0001, x = 0.0002, ..., x = 3.1415 and х = 3.1416) and determine 
the largest of these by visual inspection. This would not be very efficient, however, and it would require 
human intervention to obtain the final result. Instead let us use the following elimination scheme, which is a 
highly efficient computational procedure for all functions which have only one “peak” within the search interval. 


Computational Procedure 
Suppose we place two search points at the center of the interval, located a very small distance from each 

other, as shown in Fig. 6.1, where 

X1 = left end of the search interval 

X2 = left-hand interior search point 

X3 = right-hand interior search point 

X4 = right end of the search interval 

D = distance between X2 and X3 


If X1, X4 and D are known, then the interior points can be calculated as 


X2- X14.5«(X4-X1- D) 
X3=X1+.5*(X4-X1+D)=X2+D 


paper 
— a 


xi x2 хз x 


Fig. 6.1 


Let us evaluate the function у = х соѕх at X2 and at X3, and let us call these values Y2 and ҮЗ, 
se Y2 turns out to be greater than ҮЗ. Then we know that the maximum that we are seeking 


respectively. Su 
es RU at portion of the search interval which ranges 


will lie somewhere between X1 and X3. Hence we retain only th 
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from x = X1 to x = X3 (we will now refer to the old point X3 as X4, since it is now the right end of the new 
search interval), and generate two new search points, X2 and X3. These points will be located at the center of 


the new search interval, a distance D apart, as shown in Fig. 6.2. 


= Ер р а ж D 
xi x2 xa X4 xi x2 xa X4 


(formerly X3) (formerly X2) 


Fig. 6.2 Fig. 6.3 


On the other hand, suppose now that in our original search interval the value of Y3 turned out to be greater 
than Y2. This would indicate that our new search interval should lie between X2 and X4. Hence we rename the 
point which was originally called X2 to be X1 and we generate two new search points, X2 and X3, at the center 
of the new search interval, as shown in Fig. 6.3. 

We continue to generate a new pair of search points at the center of each new interval, compare the 
respective values of y and eliminate a portion of the search interval until the search interval becomes smaller 
than 3*D. Once this happens we cannot distinguish the interior points from the boundaries. Hence the search is 
ended. 

Each time we make a comparison between Y2 and Y3 we eliminate that portion of the search interval which 
contains the smaller value of y. If both interior values of y should happen to be identical (which can happen, 
though it is unusual), then the search procedure stops, and the maximum is assumed to occur at the center of the 
two search points. 

Once the search has ended, either because the search interval has become sufficiently small or because the 
two interior points yield identical values of y, we can calculate the approximate location of the maximum as 


X5- .5«(X24-X3) 


The corresponding maximum value of the function can then be obtained as Х5*СО$(Х5). 


The Program Outline 


Define the function y = x cos x. 

Read the initial values of X1 and X4 and a value for D. 
Set 1-1 (where I is an iteration counter). 

Calculate a pair of interior points. 


UP оқа 


Write ош the values of x at the ends of the interval and at the interior points, and write out the 
corresponding values for y. 


6. Compare Y2 and Y3 


(a) If Y2 is greater than Y3, let X3 be called X4, thus defining a new search interval, and proceed to 
step 7. 


(b) If Y3 is greater than Y2, let X2 be called ХІ, thus defining a new search interval, and proceed to 
step 7. 


(c) If Y2 equals Y3, then proceed to step 9 below. 


7. Test to see if I=100. If so, write an appropriate message and stop. Otherwise, increment the iteration 
counter and continue. 


8. Test to see if (Х4-Х1)>3%р. If so, return to step 4 above. Otherwise, proceed below. 


9. Calculate X5-.5«(X24 X3) 
Y5- X5*COS(X5) 


then write out the final results and stop. 


A flowchart of the procedure is given in Fig. 6.4. 
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The BASIC Program 


FUNCTIONS AND SUBROUTINES 


PRINT 
MESSAGE 


CALCULATE 
X2,X3 
Y2,Y3 


PRINT 
Y1,Y2,Y3,Y4 
X1,X2,X3,X4 


Fig. 6.4 
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The actual BASIC program appears in Fig. 6.5. For simplicity we have included a function definition to 
evaluate the quantity y = x cos x. (Note that a reference to the library function COS is contained within the 
function definition.) We see that the function is referenced in lines 170, 180, 200 and 440. А different value for 
the argument (i.e., a different value of x) is supplied in each function reference. 

Figure 6.6 shows the output generated by the program for the case X1=0, X4=3.14159 and D=0.0001. We 
see that the maximum value of y is approximately 0.5611, occurring at x = 0.8604. Notice that this result has 


been obtained to a high degree of accuracy with only 14 pairs of search points! 
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10 REM SEARCH FOR A MAXIMUM OF THE FUNCTION Y-X«COS(X) 
20 DEF FNY(X) =Х*С05 (X) 

30 PRINT "LEFT END OF INTERVAL (X1) ="; 

40 INPUT X1 

SO PRINT 

&0 PRINT "RIGHT END OF INTERVAL (X4) =“; 

70 INPUT X4 : 


80 РАТМТ 
90 PRINT "MINIMUM SEPARATION BETWEEN INTERIOR POINTS (D) ="; 


100 INPUT D 
110 LET I=1 


130 REM CALCULATE INTERIOR POINTS 


150 LET X2=X1+.5*(X4-X1-D) 
“60 LET X3=X2+D 

170 LET Y2=FNY (X2) 

180 LET Y3=FNY (X3) 

190 PRINT 

200 PRINT "Y1="gFNY (X1) ,"Y2="; Y2, "YI="; Y3, "Y4="; FNY (X4) 
210 PRINT "X1=";X1,"X2=";X2,"X3="; X3, "X4="; X4 

220 IF Y2<Y3 THEN 300 

230 IF Y2=Y3 THEN 400 


250 REM Y2 GREATER THAN Y3 - RETAIN LEFT INTERVAL 


270 LET X4=X3 
280 GOTO 340 


300 REM Y3 GREATER THAN Y2 - RETAIN RIGHT INTERVAL 
320 LET X1-X2 
340 REM TEST FOR END OF SEARCH 


360 IF I-100 THEN 470 
370 LET 1=1+1 
ЗВО IF (X4-X1)>3#D THEN 130 


400 REM COMPUTE FINAL SOLUTION 


420 LET XS-.5*(X2*X3) 

430 PRINT 

440 PRINT ,"XMAX-"; XS, "YMAX-"; FNY (X5) 
4S0 STOP 


470 REM TERMINATE COMPUTATION BECAUSE OF MAXIMUM ITERATION COUNT 


222 PRINT "MAXIMUM NUMBER OF ITERATIONS EXCEEDED - COMPUTATION ENDS" 
ND 


Fig. 6.5 


The procedure given in this example can also be used to minimize a function of x. In fact, the same program 
can be used, given some very minor modification. Such a minimization procedure can provide us with a highly 
effective technique for calculating the roots of a nonlinear algebraic equation. For example, suppose we want to 
find the particular value of x which causes some function f(x) to equal zero. A typical function of this nature 
might be f (x)= x —sin x + cos x — 1. If we let у(х) = f (xY,, then the function y(x) will always be positive except 
for those values of x which are roots of the given function, i.e., for which y(x) will equal zero. Thus any value of 
x which causes y(x) to be minimized will also be a root of the equation f (x) = 0. 
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LEFT END ОР INTERVAL (X1) = 20 
RIGHT END OF INTERVAL (X4) = ?3.14159 


MINIMUM SEPARATION BETWEEN INTERIOR POINTS (D) = 7.0001 


Y1= 0 Y2= 8.06277E-5 Y3=-7.64780E-5 
У4=-$. 14159 

X1- O Х2- 1.57075 X3= 1.57085 Х4= $.14159 
У1= 0 Y2- 0.555354 Y3= 0.555372 \4=-7.64780Е-5 
X1- О Х2- 0.785372 Х5- 0.785473 Х4= 1.57085 


У1= 0.555556 Y2= 0.450865 Ү5- 0.450795 \4=-7.64780Е-5 
Х1= 0.785372 Х2- 1.17806 X3= 1.17816 Х4= 1.57085 


Үі= 0.555356 Ү2= 0.545438 Y3= 0.545412 Y4= 0.450795 
Х1= 0.785572 Х2- 0.981716 Х5- 0.981816 Х4- 1.17816 


У1= 0.555356 Y2= 0.560554 Y3= 0.560529 Y4= 0.545412 
Хі= 0.785372 Х2- 0.883544 Х5- 0.883644 Х4- 0.981816 


Y1= 0.555356 Ү2= 0.560405 Y3= 0.56041 Y4= 0.560529 
X1= 0.785372 X2= 0.834458 X3- 0.834558 Х4= 0.883644 


У1= 0.560405 Y2= 0.561094 Y3= 0.561995 Y4= 0.560529 
Хі= 0.834458 Х2- 0.859001 Х3- 0.859101 X4= 0.883644 


Yi= 0.561094 Y2= 0.560972 ҮЗ= 0.560969 Y4= 0.560529 
Хі= 0.859001 X2= 0.871273 X3= 0.871373 X4= 0.883644 


Үі= 0.561094 Y2= 0.561072 Y3= 0.561071 Y4= 0.560969 
Хі= 0.859001 Х2= 0.855137 Х5- 0.865237 X4= 0.871373 


Y1= 0.561094 Y2= 0.561093 ҮЗ= 0.561093 Y4= 0.561071 
Хі= 0.859001 X2= 0.862069 X3= 0.862169 Х4= 0.865237 


Y1= 0.561094 Ү2= 0.561096 Y3= 0.561096 Y4= 0.561093 
X1= 0.859001 Х2= 0.860535 Х5- 0.860635 X4= 0.862169 


Y1= 0.561094 Ү2= 0.561096 Y3= 0.561096 Y4= 0.561096 
X1= 0.859001 X2= 0.859768 X3- 0.859868 Х4- 0.840635 


Y1= 0.561094 Y2= 0.561096 Y3= 0.561096 Y4= 0.561096 
X1= 0.859768 Х2- 0.860152 X3= 0.860252 ХА- 0.860635 


Y1= 0.561096 Y2= 0.561096 Y3= 0.561096 Y4= 0.561096 
Хі= 0.860152 Х2= 0.860343 X3= 0.860443 Х4- 0.860635 


XMAX= 0.850393 YMAX= 0.561096 
Fig. 6.6 


6.3 MULTILINE FUNCTIONS 


There are many calculations that cannot be carried out using a single statement. This is especially 
true of computations that involve lengthy arithmetic formulas or conditional branching operations. 
Some versions of BASIC support a multiline function feature, which is well suited for calculations of 
this type. 

A multiline function, like a single-line function, can have any number of dummy input arguments 
but returns only one value. The first statement must be a DEF statement. Unlike a single-line 
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function, however, the function definition is not included in the DEF statement. The last statement 
must be a FNEND (FUNCTION END) statement, which consists simply of a statement number 


followed by the keyword FNEND. : 
Between the DEF and FNEND statements there can be any number of statements which define 


the function. One of these statements must assign a value to the function name. Usually this is 
accomplished with a LET statement in which the function name appears to the left of the equal sign. 
The same naming convention is used as with single-line functions. 


EXAMPLE 6.7 


The skeletal structure of a multiline function is shown below. 


200 DEF FNA(X,Y,Z) 


250 LET FNA-... 
260 FNEND 


This function is called FNA, and it makes use of the dummy input arguments X, Y and Z. The value returned by 
the function is computed in statement number 250. 


The grammatical rules that apply to multiline functions are the same as those for single-line 
functions (e.g., a function definition can appear anywhere in a program; a function is referenced by 
specifying its name, followed by a list of arguments enclosed in parentheses and separated by 
commas; etc.). In addition, control cannot be transferred between a statement within a function and a 
point exterior to the function. 


EXAMPLE 6.8 


Shown below is a part of a BASIC program containing a multiline function definition and a reference to 
that function. The purpose of the function is to determine the smaller of a pair of numbers. 


20 DEF FNM(A,B) 

30 LET FNM-A 

40 IF А<=В THEN 60 
50 LET ЕММ=В 

60 FNEND 


150 PRINT FNM(FNM(C1,C2),FNM(C2,C3)) 


Notice that the function FNM is nested within itself in statement number 150. This statement causes the smallest 
of the three quantities represented by C1, C2 and C3 to be printed. 


Variables other than those specified as arguments may appear in a multiline function, just as in a 
single-line function. This includes subscripted as well as nonsubscripted variables. The currently 
assigned values of these variables will be used each time the function is evaluated. 


EXAMPLE 6.9 
A BASIC program contains the following multiline function definition. 


100 DEF FNY(X) 

110 IF X>300 THEN 140 

120 LET FNY-A*B*X*C«X12 
130 GO TO 150 

140 LET FNY- D-E*X*F*X1 
150 FNEND ` 
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Notice that the value of X is supplied via an argument when the function is referenced. However, the values of 
A, B, C, D, E and F are not supplied as arguments. Thus the most recently assigned values for these variables 
will be used whenever the function is evaluated. 


lt should be understood that a function having arguments of a given type can result in a value 
which is of a different type (e.g., a function having string arguments can be used to determine a 
numeric value). Furthermore, the arguments themselves need not be of the same type (i.e., both 
numeric and string arguments can be present). This is true for both multiline and single-line 
functions. Remember, however, that the arguments in a function reference must correspond in 
number and in type with the dummy arguments in the function definition. 


EXAMPLE 6.10 


Presented below is the skeletal structure of a multiline function which requires both a numeric and a string 
argument. The function itself returns a string value (hence the dollar sign in the function name). 


100 DEF FNWS(C,N$) 


140 LET FNW$=... 
150 FNEND 
When referencing this function it will be necessary to supply a numeric and a string argument, in that order. 
The names of the arguments need not, of course, be the same as the names of the dummy arguments. Hence an 
appropriate function reference might be 


250 LET N$=FNWS(X,TS) 


Examples 6.15 and 6.20 illustrate the use of multiline functions in complete BASIC programs. 


6.4 ENCODING AND DECODING DATA—THE CHANGE STATEMENT 


When a string is represented within a computer, the characters that make up the string are 
stored not as characters but as an encoded sequence of numbers. Each digit, letter and special 
character is represented by its own unique number. 

There are several different numerical coding schemes which are used with various computers. The 
most common of these is the 7-bit ASCII Code’, in which the letter A is represented by the (decimal) 
number 65, B by the number 66, and so on. Table 6.1 shows the complete ASCII character set. 

The conversions from characters to numbers, and vice-versa, are carried out automatically within 
the computer. Usually the programmer is not even aware of the fact that such conversion takes place. 
Sometimes, however, it is desirable to work with the numerical equivalent of the characters in a 
string. This allows each character to be manipulated individually. The CHANGE statement allows us 
to carry out this conversion. 

There are two different ways that the CHANGE statement can be written. The first of these 
consists of a statement number, the keyword CHANGE, a string variable, the keyword TO and a 
numeric list, in that order. This statement causes each character in a string to be converted to its 
numerical equivalent and stored in a numeric list. The first element in the list (for which the subscript 
has a value of zero) will indicate the number of encoded characters contained in the list. 


* American Standard Code for Information Interchange, a widely used code supported by the American National Standards 


Institute. 
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Table 6.1 Тһе ASCII Character Set 


ASCII ASCII ASCII ASCII 
Value Character Value Character Value Character Value Character 


032 blank 
033 
034 
035 


>® 


/ 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 


> — Z — N < x Z < G q o G O ü O Z K - 8 =< — m Q m m Ü G Z 
а — — N w w E < CG —ü—Ç we "pO O 3 B — w — — mmm — о O. o ST x 


| 

g 
т 
ш 


Мое: The first 32 characters and the last character are control characters. They cannot be printed. 


EXAMPLE 6.11 
A BASIC program contains the statement 


100 CHANGE N$ TO N 


where N is the name of a numeric list. Suppose that N$ represents the string MONDAY and that the ASCII 


code shown in Table 6.1 is applicable. Then execution of the CHANGE statement will cause the elements of N 
to be assigned the following values. 
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N(0)= 6 (indicating six characters in the string) 

N(1)=77 (the numerical equivalent of the letter M) 
N(2)=79 (the numerical equivalent of the letter O) 
N(3)=78 (the numerical equivalent of the letter N) 
N(4)=68 (the numerical equivalent of the letter D) 
N(5)=65 (the numerical equivalent of the letter A) 
N(6)=89 (the numerical equivalent of the letter Y) 


It is now possible to access the numerical equivalent of any character in the given string simply by referring to 


the appropriate subscripted variable. 

The position of the string variable and the numeric list can be interchanged in the CHANGE 
statement. That is, the statement can be written as a statement number, followed by the keyword 
CHANGE, a numeric list, the keyword TO and а string variable. In this form the statement causes 
the elements of the numeric list to be converted into a string of characters. The character ¢onversion 
begins with the second element of the list (for which the subscript has a value of one); the first 
element in the list (subscript equal to zero) will indicate the number of characters in the string, as 


before. 


EXAMPLE 6.12 
A BASIC program contains the statement 


225 CHANGE L TO A$ 
where L is the name of a numeric list. Suppose that the elements of L have the following values, which represent 


7-bit ASCII characters. 


L(0)- 11 L(6)-32 
L(1)-83 L(7)-67 
L(2)-65 L(8)- 76 
143)=78 L(9)=65 


L(4)=84 L(10)=85 

L(5)=65 L(11)=83 
When the CHANGE statement is executed, each element of L, beginning with L(1), will be converted to its 
corresponding character and the resulting string will be assigned to A$. Hence А$ will represent the string 


SANTA CLAUS. 
In Example 6.15 we will see a complete BASIC program that makes use of the CHANGE 


statement. 


6.5 THE ASC AND CHR$ FUNCTIONS 
Closely associated with the CHANGE statement are the library functions ASC and CHRS. The 
first of these, ASC, converts any single character to its ASCII equivalent. This function will therefore 


accept only a single character as an argument. 


EXAMPLE 6.13 
Consider the statement 
50 LET C=ASC(P) 
This statement will cause a value of 80 to be assigned to the variable C, since 80 is the ASCII equivalent of the 


letter P. 
Similarly, the statement 


70 IF L(I)- ASC( ) THEN 110 
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will result іп a transfer of control to statement number 110 if the subscripted variable L(I) represents the value 
32, since 32 is the ASCII representation for a blank space. 


The purpose of the library function CHR$ is just the opposite of ASC. That is, CHR$ is used to 
convert the ASCII representation of a single character into that character. In this case the value of 
the argument must be a recognized ASCII integer quantity. Noninteger values will automatically be 


truncated. 


EXAMPLE 6.14 
Consider the statement 
75 LET A$- CHRS(X) 


If the variable X has a value of 42, then А$ will represent the character *, since 42 is the ASCII representation 


for an asterisk. 
In a similar vein, the statement 


310 PRINT CHRS(L(I)); 


will cause the letter P to be printed if L(I) has a value of 80. 


The ASC and CHRS functions, as well as the CHANGE statement, are included in the following 
programming example. 


EXAMPLE 6.15 A Piglatin Generator 


Piglatin is an encoded form of English that is often used by children as a game. A piglatin word is formed 
from an English word by transposing the first sound (usually the first letter) to the end of the word and then 
adding the letter “а”. Thus the word "cat" becomes “айса”, “BASIC” becomes “ASICBA”, “piglatin” becomes 
"iglatinpa" (or “igpa atinla’’, if spelled as two separate words), and so on. А В 

We wish to write а BASIC program which will accept а line of English text and then print out the text in 
piglatin. 


Computational Procedure 


We will assume that each textual message can be typed on one line of a 72-character timesharing terminal, 
with a space between successive words. The computational procedure will then be straightforward, consisting of 
a means of extracting each word from the textual message, rearranging the word, adding the letter “а” and then 
printing the rearranged word. In principle it is quite simple to extract each word from the line of text, since the blank 
spaces allow us to distinguish one word from another. 

The detailed computation is somewhat tricky, however, since the characters in the line of text can be 
manipulated individually only if they are first changed to their ASCII-encoded numerical equivalents. Before 
printing each rearranged word, it will be necessary to change the ASCII numbers back into characters. The 
CHANGE statement and the CHR$ function will be used for this purpose. 

The extraction of the ASCII quantities representing a single word from the entire list of ASCII numbers 
must be carried out carefully. Two “pointers” (numeric variables) will be used for this purpose. The first pointer 
will indicate the location of the ASCII equivalent of the first letter in the word, and the second pointer will 
indicate where the ASCII equivalent of the last letter can be found. These pointers will have to be reset after 
each word has been rearranged. 

We will use a multiline function in order to extract each word, i.e., to position the pointers. There will be no 
problem in positioning the first pointer, since we know that the first word will start in location 1, and each 
successive word will begin two places beyond the end of the previous word. In order to position the second 
pointer, however, we will have to examine each ASCII-encoded character beyond the first pointer until we find a 
blank space. The second pointer will then be positioned one place before the blank space. 
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The Program Outline 
In order to write a detailed outline of the computational procedure let us first define the following symbols. 


N$ = the given line of text (a string) 
L = a numeric list containing the ASCII equivalents of the characters in the line of text (note that L . 
will consist of 72 individual encoded quantities) 
P1- the location in L of the ASCII equivalent of the first letter of a particular word (a number 
between 1 and 72) 
P2 = the location in L of the ASCII equivalent of the last letter of a particular word (a number 
between 1 and 72 but not less than the value of P1) 


Consider the multiline function FNP, which will return a value for P2, given a value for P1. The 
computation will proceed as follows. 


1. 


For each value of the subscript I beginning with 1=Р1+1, test to see И the subscripted variable L(I) 
contains the ASCII equivalent of a blank space. 


(a) If some L(I) represents a blank space (indicating the end of a word), let Р2-1-1. 

(b) Ifall of the L(I) represent something other than a blank space, set P2=72 (the end of a line). 
Return the value of P2 to the function reference point. Figure 6.7 shows a flowchart of the above 
procedure. 


Fig. 6.7 


The remainder of the program will proceed in the following manner. 


=a M > 


Read N$. 
Test to see if N$ represents the word END. If so, terminate the computation; otherwise, proceed with 


step 3 below. 
Assign to each element т L the ASCII equivalent of a blank space (thus “егавіпр” whatever may have 


been stored in L before). 

Change N$ to L. 

Let Р1=1. 

Reference the function FNP to establish a value for P2. 

Rearrange and print the characters in the word as follows. 

(a) If the word contains only one letter, then P2 will coincide with P1. Hence proceed directly to step 
7(c) below. 

(b) Print the characters represented by L(P1+1) through L(P2) consecutively. 

(c) Print the character represented by L(P1), followed immediately by the letter “а” and a blank 
space. 

Establish the beginning of the next word as follows. 

(a) Let P1- P242. 

(b) If the new value of РІ exceeds 72, then the line of text has been exceeded. Thereiore go back to 
step 1 and read a new line of text. 
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(c) If L(P1) represents a blank space (even though P1 does not exceed 72), then the end of the textual 
message has been reached. Therefore go back to step 1 and read a new line of text. 


(4) Go back to step 6 and establish а new value for Р2. 


Note that this strategy will continue to read successive lines of text until the word END has been 


encountered (see steps 1 and 2 above). , f 
A flowchart corresponding to the above steps is shown in Fig. 6.8. 


18 
L(P1)= 
ASCI )? 


CHANGE PRINT 
сн P1)); 
N$ TO L i ) 


Fig. 6.8 


The BASIC Program 


Figure 6.9 contains the actual BASIC program for this problem. Notice the use of the ASC library function 
in lines 70, 210 and 390 and the CHR$ function in lines 310 and 330. These functions are used to convert single 
characters to and from their ASCII equivalents. 

The computation of P2 for a given value of P1 is programmed as a multiline function in lines 40-120. It 
should be pointed out that this particular program could just as easily have been written without the use of a 
programmer-defined function. The purpose of the function, in this case, is to structure a relatively self-contained 
part of the computational strategy as an equally self-contained program element. Hence the advantage of the 
function is organizational rather than computational. In many other programs, however, the presence of a 
programmer-defined function will eliminate the need for repeated programming of the same set of calculations. 
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10 REM PIGLATIN GENFRATOR 

20 DIM L(72) 

30 

40 DEF FNP(P1) 

50 REM THIS FUNCTION FINDS THE END OF A SINGLE WORD 


60 FOR 1=Р1+1 ТО 72 

70 ТЕ L(I)-ASC( ) THEN 110 
80 NEXT I 

90 LET FNP = 72 

100 GOTO 120 

110 LET FNP=I-1 

120 FNEND 

130 

140 REM READ A LINE DF TEXT 
150 

160 PRINT 

170 PRINT 

180 INPUT N$ 

190 IF N$-"END" THEN 410 

200 FOR I-1 TO 72 

210 LET L (I)=ASC( ) 

220 NEXT I 

250 CHANGE N$ TO L 

240 LET P1-1 

250 LET P2-FNP (P1) 


270 REM PRINT WORD IN PIGLATIN 


290 IF P2-P1 THEN 330 

300 FOR I=P1+1 TO P2 

310 PRINT CHR$(L(I))0; 
320 NEXT I 

330 PRINT CHR$(L(P1));"A "j 


350 REM FIND NEXT WORD 


370 LET Р1=Р2+2 

580 IF Р1>72 ТНЕМ 140 “END ОҒ LINE 
390 IF L(P1)=ASC( ) THEN 140 ‘END OF TEXT 
400 GOTO 250 

410 END 


Fig. 6.9 


In Fig. 6.10 we see the output generated by the program for three typical lines of text. Each single-line input 
message is followed immediately by the corresponding line of piglatin. Execution of the program is terminated 
after the word END is entered from the terminal. (Note that the user's responses are underlined.) 


?THIS IS A PIGLATIN GENERATOR 
HISTA SIA AA IGLATINPA ENERATORGA 


ТЫНАТ SORT OF GARBLED MESSAGE IS THIS ANYHOW 
HATWA ORTSA FOA ARBLEDGA ESSAGEMA SIA HISTA NYHOWAA 


?МОМ IS THE TIME FOR ALL GOOD MEN TO COME TO THE AID DF THEIR COUNTRY 
OWNA SIA HETA IMETA ORFA LLAA OODGA ЕММА OTA ОМЕСА OTA НЕТА IDAA FOA НЕТ 


КТА OUNTRYCA 


?END 
Fig. 6.10 
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6.6 GENERATING RANDOM NUMBERS—THE RND FUNCTION 


Many interesting computer applications are based upon the generation of random numbers. In 
BASIC it is very easy to generate a random number by means of the RND library function. This 
function returns a different random number with a value between zero and one each time the 


function is referenced. An argument is not required. 


EXAMPLE 6.16 
A BASIC program contains the statements 
20 DIM X(100) 
50 FOR 1=1 TO 100 
60 LET X(I-RND 
70 NEXT I 


These statements will cause 100 random numbers to be generated and stored in the list X. Each random number 
will be a decimal quantity whose value lies between zero and one. 


EXAMPLE 6.17 
Suppose we wish to generate a random number having a value between 3 and 7. This can be accomplished 
by writing 
100 LET X=3+(7-3)*RND 
or simply 
100 LET X=3+4*RND 


EXAMPLE 6.18 


The statement shown below will generate an integer-valued random number between 1 and 6. Each digit 
will occur with equal likelihood. 


100 LET X=1+INT(6*RND) 


In interpreting this statement it should be understood that the RND function can return a function very close to 
1 but not exactly 1. Thus if RND returns a value of 0.99999999, then 6*RND will yield a value of 5.9999994, and 
INT(6*RND) will result in a value of 5. Hence X will be assigned a value of 6. 


We will see a complete BASIC program that makes use of the RND function in Example 6.20. 


6.7 THE RANDOMIZE STATEMENT 


The numbers obtained from the RND function are not truly random, since they are generated by 
using a fixed computational procedure. However, such numbers appear to be random, and they have 
the same statistical properties as numbers which are truly random. Therefore these numbers are 
often referred to as pseudo-random numbers. 

Every time a program containing the RND function is executed the same sequence of pseudo- 
random numbers will be generated, This reproducibility of the random number sequence is very 
helpful when debugging a program. On the other hand, it is often desirable to generate a different 
sequence of pseudo-random numbers each time a debugged program is executed. This can be 
accomplished by means of the RANDOMIZE statement. 

The RANDOMIZE statement consists simply of a line number followed by the keyword 
RANDOMIZE. Its purpose is to provide a different starting point for the random number generator. 
Therefore the RANDOMIZE statement must precede the first reference to the RND function in a 
program. 
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EXAMPLE 6.19 


А BASIC program contains the statements 


20 DIM X(100) 
30 RANDOMIZE 


50 FOR 1=1 TO 100 
60 LET X(I-RND 
70 NEXT I 


These statements will cause a sequence of 100 pseudo-random numbers to be generated and stored in the list X, 


just as in Example 6.16. Unlike Example 6.16 however, a different sequence of random numbers will be 
generated each time the program is executed, 


EXAMPLE 6.20 A Game of Chance (Shooting Craps) 


In this example we will simulate a game of “craps” on a computer. Craps is a popular dice game in which a 
player throws a pair of dice one or more times until he either wins or loses. The game can be computerized by 
substituting the generation of random numbers for the actual throwing of the dice. 


Rules of the Game 

There are two ways a player can win in craps. The player can throw the dice once and obtain a score of 
either 7 or 11, or he can obtain a 4, 5, 6, 8, 9 or 10 on the first throw and then come up with the same score on a 
subsequent throw before obtaining a score of 7. Conversely, there are two ways to lose. Either the player can 


throw the dice once and obtain a score of 2, 3 or 12, or he can obtain a 4, 5, 6, 8, 9 or 10 on the first throw and 
then obtain a score of 7 on a subsequent throw before coming up with the same score as on the first throw. 


Computational Procedure 


Let us computerize the game in a conversational manner so that one throw of the dice will be simulated 
each time the player depresses the carriage return on the console. A message will then appear indicating the 
outcome of each throw. The game will continue until the player types the word END. In addition, we will 
include a provision for printing the rules of the game if the player enters the word RULES. 

In order to simulate one throw of the dice we will generate two random numbers, each having an integer 
value between 1 and 6. The sum of these two numbers will represent the score obtained by throwing the dice. It 
is convenient to use a programmer-defined function for this purpose, since each reference to the function will 


simulate a differem throw of the dice. Es 
The main part of the program will examine the score obtained from each throw and determine if the player 


has won or lost the game, or whether another throw is required. An appropriate message, along with the 
simulated score, will be printed in each case. Also included will be a block of PRINT statements which will cause 


the rules to be printed in response to the player typing RULES. 


The Program Outline 
1. Initialize the random number generator. 
2. Read a value for the string variable N$. 
(a) Stop the execution if М5- END. 
(b) If N$- RULES, print the rules of the game and then repeat this step (i.e., read a new value for N$). 
(c) If N$ represents some string other than the words END or RULES, then proceed to step 3 below. 
(Note that any single character can be assigned to N$ for this purpose. A carriage return may be most 
convenient, since the carriage return key is particularly conspicuous on a console.) 
3. Simulate one throw of the dice, calling the resulting score K. 
(a) A value of K = 2, З or 12 indicates a loss; hence, print an appropriate message and return to step 
Pas 
(b) А value of K = 7 or 11 indicates a win; hence, print an appropriate message and return to step 2. 
(c) A value of K=4, 5, 6, 8, 9 or 10 will require additional throws of the dice; hence, print an 
appropriate message and proceed with step 4 below. 
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4. Let K1=K. (This will allow subsequent values of K to be compared with the original value, which will 


now be called K1.) 


5. Read а new value for N$ and then simulate another throw of the dice, thus generating a new value for 


K. (Note that the dice will not be thrown 
such as a carriage return, for N$.) 


6. Compare K with K1. 


until the player signals to do so by entering some character, 


(a) A value of K=K1 indicates a win; hence, print an appropriate message and return to step 2. 


(b) A value of K = 7 indicates a loss; hence, print an appropriate message and return to step 2. 
(c) If K does not equal either K1 or 7, then return to step 5 and generate a new value for K. 


A flowchart of the procedure is shown in Fig. 6.11. 


START 


RANDOMIZE 


Is YES 
K=2,3 OR 121 
NO 
Is YES 
K-1 OR 11? 
NO 


THROW AGAIN- 
MESSAGE 


Loss— 
PRINT 
MESSAGE 


WIN- 
PRINT 
MESSAGE 


PRINT 


WIN- 
PRINT 
MESSAGE 


LOSS- 
PRINT 
MESSAGE 


Fig. 6.11 
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Тһе simulation of one throw of the dice will be carried out in а programmer-defined function as follows. 
1. Let K2=1+INT(6*RND). 
(See Example 6.18 for an explanation of this statement.) 
2. Let K3=1+INT(6*RND). 
3. Let K=K2+K3. 
4. Return the current value for K to the function reference point. 


A corresponding flowchart is shown in Fig. 6.12. Note that the calculated value of K is called FNK within 
the function. 


K2=1+ K3=1+ 
INT(6*RND) INT(6*RND) 


Fig. 6.12 
10 REM SIMULATION OF A GAME OF CRAPS 
20 RANDOMIZE 
30 DEF FNK 
40 LET K2-1*INT(&*RND) 
50 LET K3-1*INT(&*RND) 
60 LET FNK=K2+K3 
70 FNEND 
80 INPUT N$ 
90 IF N$-"END" THEN 460 
100 IF N$-"RULES" THEN 330 
110 
120 REM SIMULATE ONE PLAY OF CRAPS 
150 


140 LET К-ҒМК 
150 ON (К-1) GOTO 150,160,200,200,200,180,200,200,200,180,160 


160 PRINT К; "- - YOU LOSE ON THE FIRST THROW" 
170 GOTO 300 
180 PRINT К; "~ - YOU WIN ON THE FIRST THROW" 


190 GOTO 300 

200 LET Ki1-K 

210 PRINT K; "- — THROW THE DICE AGAIN" 

220 INPUT N$ 

230 LET K-FNK 

240 IF K-K1 THEN 270 

250 IF K-7 THEN 290 

260 GOTO 210 

270 PRINT K; "- - YOU WIN BY MATCHING YOUR FIRST SCORE" 


280 GOTO 300 

290 PRINT K; "- - YOU LOSE BY FAILING TO MATCH YOUR FIRST SCORE" 
300 PRINT 

310 GOTO 80 


550 REM PRINT RULES OF CRAPS 


350 PRINT,"RULES OF CRAPS" 


360 PRINT 
370 PRINT "TO WIN: OBTAIN A 7 OR 11 ON THE FIRST THROW" 


380 PRINT " OR: OBTAIN ñ 4,5,6,8,9 OR 10 ON THE FIRST THROW" 
PRINT,"AND MATCH YOUR ORIGINAL SCORE BEFORE THROWING А 7" 
400 PRINT 3 

PRINT "TO LOSE: OBTAIN A 2,3 OR 12 ON THE FIRST THROW" 

420 PRINT " OR: OBTAIN A 4,5,6,8,9 OR 10 ON THE FIRST THROW" 
PRINT, "AND THROW А 7 BEFORE MATCHING YOUR ORIGINAL SCORE" 


440 PRINT 
450 GOTO 80 
460 END 
Fig. 6.13 
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Тһе BASIC Program 

Figure 6.13 contains a complete BASIC program for carrying out the computation. Notice that lines 30 
through 70 define the multiline function FNK, which simulates the throw of a pair of dice. This function is 
referenced at two different points within the program—namely, lines 140 and 230. 

Within the programmer-defined function FNK we see two references to the library function RND. Also, 
notice that statement number 20 is a RANDOMIZE statement, which is used to initialize the random number 
generator each time the program is executed. It is significant that the RANDOMIZE statement precedes the 
first reference to the RND function (through reference to function ЕМК). 

In Fig. 6.14 we see а representative listing of output data. First we see the rules printed out in response to 
the player typing in the word RULES. Following this we see five typical plays (three wins and two losses). 
Finally, the player has typed the word END, causing the program execution to terminate. (The user's responses 
are underlined.) 


7RULES 
RULES OF CRAPS 


TO WIN: OBTAIN А 7 OR 11 ON THE FIRST THROW 
OR: OBTAIN А 4,5,6,8,9 OR 10 ON THE FIRST THROW 
AND MATCH YOUR ORIGINAL SCORE BEFORE THROWING A 7 


TO LOSE: OBTAIN А 2,5 OR 12 ON THE FIRST THROW 
OR: OBTAIN А 4,5,6,8,9 OR 10 ON THE FIRST THROW 
AND THROW А 7 BEFORE MATCHING YOUR ORIGINAL SCORE 


i sies d WIN ON THE FIRST THROW 

? 

5 - - THROW THE DICE AGAIN 

7 - - YOU LOSE BY FAILING TO MATCH YOUR FIRST SCORE 
? 

3 - - YOU LOSE ON THE FIRST THROW 

? 

7 - - YOU WIN ON THE FIRST THROW 

? 

4 - - THROW THE DICE AGAIN 

ө - - THROW THE DICE AGAIN 

2 - - THROW THE DICE AGAIN 

11 - - THROW THE DICE AGAIN 

ps THROW THE DICE AGAIN 

wie THROW THE DICE AGAIN 

Me YOU WIN BY MATCHING YOUR FIRST SCORE 
?END 


Fig. 6.14 
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6.8 DEFINING A SUBROUTINE 


Sometimes it is more convenient to structure a sequence of statements as a subroutine than as a 
function. Subroutines are similar to functions in the sense that they can be referenced from other 
places in a program. Unlike a function, however, a subroutine is not given a name, and it can be used 
to determine more than one numeric and/or string quantity. Furthermore, arguments are not used. 
Hence a subroutine can exchange information with the rest of the program in a very general manner. 

A subroutine need not begin with any special statement. Thus a subroutine may begin with a 
REM statement, a LET statement, a FOR-TO statement, an INPUT statement, etc. The last 
statement, however, must be a RETURN statement, which consists simply of a statement number 
followed by the keyword RETURN. This statement causes control to be transferred back to the 
statement following the point of reference. (It should be understood that control cannot be 
transferred by some other type of branching statement, such as GO TO, IF-THEN or ON-GO TO.) 


EXAMPLE 6.21 
A typical subroutine is shown below. 


300 REM SUBROUTINE TO CALCULATE CRITICAL CONSTANTS 

310 LET C1=(A+B+C)/3 

320 LET C2=SQR(A12+Bt2+Ct2) 

330 LET C3=SQR(A*B#C) 

340 RETURN 
Notice that the subroutine begins with a REM statement and ends with a RETURN statement. The variables A, 
B and C must be assigned numerical values before the subroutine is first referenced. 


A subroutine may contain several RETURN statements if desired. This is often necessary if the 
subroutine contains a conditional branch or a multiple branch. When the subroutine is executed, the 
first RETURN statement to be encountered will cause control to be transferred from the subroutine. 


EXAMPLE 6.22 
The skeletal structure of a subroutine containing multiple RETURN statements is shown below. 


500 REM SAMPLE SUBROUTINE WITH MULTIPLE RETURNS 
510 ON N 520,580,650 
520 LET X=... 


570 RETURN 
580 LET Y=... 


640 RETURN 
650 LET Z=... 


690 RETURN 


This subroutine contains a multiple branch, with control being transferred to statement 520, 580 or 650 (all of 
which are contained within the subroutine), depending on the value of N. Control will then be transferred back 
to the statement following the subroutine reference when any one of the RETURN statements is encountered. 


6.9 REFERENCING A SUBROUTINE—THE GOSUB STATEMENT 


A subroutine is referenced by means of the GOSUB statement. This statement consists of a 
statement number, the keyword GOSUB and the number of the first statement in the subroutine. 
Execution of this statement will cause a transfer of control to the subroutine. Control will then be 
transferred back to the statement following GOSUB when a RETURN statement is encountered 


within the subroutine. 
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EXAMPLE 6.23 
A BASIC program contains the following statements. 


120 GOSUB 300 
130 PRINT “2-”;2 


300 LET X=A+B 
ee Subroutine 
380 RETURN 


When statement number 120 (GOSUB) is encountered during program execution, control will be trans- 
ferred to statement number 300 and the subroutine will be executed. Upon reaching statement number 380 
(RETURN), control will be transferred back to statement number 130, which is the first statement after 


GOSUB. 


A program may contain more than one reference to the same subroutine. Control will always be 
returned from the subroutine to the statement following the particular GOSUB statement that 
referenced the subroutine. 


EXAMPLE 6.24 
A BASIC program contains the following statements. 
120 GOSUB 300 
130 PRINT “Z=";Z 


180 GOSUB 300 
190 IF Z<10 THEN 250 


300 LET X=A+B 
... Subroutine 
380 RETURN 


Statements 300 through 380 define a subroutine, as in Example 6.23. И the subroutine is referenced by statément 
number 120, then control will be returned to statement 130 following execution of the subroutine. Similarly, if 
the subroutine is referenced by statement 180, then control will return to statement 190 after the subroutine has 
been executed. 


It is possible for one subroutine to contain a reference to another subroutine. Subroutines that are 


structured in this manner are said to be nested. (Recall that we have encountered this term in Chapter 
4, where we discussed nested FOR-TO loops.) 


EXAMPLE 6.25 
The following statements are contained in a BASIC program. 


50 GOSUB 200 

200 LET C=A+B 

240 GOSUB 300 First subroutine 
270 RETURN 

300 LET P=Q+R 


ee Second subroutine 
350 RETURN 


This program contains two subroutines. The first subroutine consists of statements 200 through 270, and the 
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second is made up of statements 300 through 350. Notice that the second subroutine is referenced from a point 
within the first subroutine (line 240); hence the subroutines are nested. 

When statement number 350 is encountered during program execution, control is transferred back to the 
statement following line 240. Hence control is transferred from the second subroutine to the first. Similarly, 
statement number 270 will return control to the statement following line 50, thus transferring control from the 
first subroutine to the initial reference point. 


Nested subroutines must maintain a strict hierarchical ordering. That is, if subroutine A 
references subroutine B, then subroutine B cannot reference subroutine A. On the other hand, 


subroutine B can be referenced from the main part of the program as well as from subroutine A. 
Examples 6.26 and 6.28 illustrate the use of subroutines in complete BASIC programs. 


EXAMPLE 6.26 А Monthly Payroll 


In this example we will determine the amount of federal, state and local income tax to be withheld, given an 
employee’s gross salary, marital status and number of exemptions. A more complete payroll computation will 
not be attempted, since the program structure can become quite complicated. 

Table 6.2 indicates the amount of federal income tax to be withheld on a monthly basis for both single and 


married employees. 


Table 6.2 Federal Income Tax Withholding Rates 
MONTHLY Payroll Period 


(a) SINGLE person—including head of household: | (6) MARRIED person— 

If the amount The amount of income tax If the amount The amount of income tax 
of wages is: to be withheld shall be: of wages is: to be withheld shall be: 
Not over $88 0 Not over $88 0 


But not of excess But not of excess 


over— over— over— 

-$133 | 14% —$88 —$183 | 14% 

—$217 | $6.30 plus 17% —$133 —$333 | $13.30 plus 17% 

—$433 | $20.58 plus 20% —$217 —$708 | $38.80 plus 16% 

—$583 | $63.78 plus 18% —$433 —$1167 | $98.80 plus 19% 

—$917 | $90.78 plus 21% —$583 —$1667 | $186.01 plus 21% -$1167 
— $160.92 plus 24% —$917 $291.01 plus 25% —$1667 


In order to use this table it is necessary to calculate an adjusted monthly gross income, which is equal to the 
for each exemption. The particular tax rate that is applicable will depend on 


gross monthly income less $54.20 : 
gross income falls into. Notice that there are two different sets of tax 


which tax bracket the adjusted 


brackets—one for single employees and one for married persons. 
Тһе state tax will be calculated as 1 percent of all gross income up to $600 а month, 13 percent of апу 


additional income up to $2000 a month, and 2 percent of any excess over $2000. The local tax will be levied at a 
rate of 1 percent of the first $800 of gross income. Monthly earnings in excess of $800 will not be taxed at the 


local level. 


Computational Procedure 

Let us calculate the adjusted monthly gross income, the state tax and the local tax in one subroutine and 
federal tax within another subroutine. This allows us to segregate the program into separate computational 
packages. The subroutines will be nested, with the federal tax subroutine being referenced by the other 
subroutine. The remainder of the program will simply read in the required data (i.e., name, employee number, 
gross monthly salary, marital status and number of exemptions); reference the subroutines; compute the net 
monthly salary and print out the desired results (namely, the amount of federal, state and local tax to be withheld 
and the net monthly salary) for each employee. 

Within the federal tax subroutine we will refer to the numbers in the left-hand columns of the tax table, 
which determine the various income brackets, as elements of the array C. We will define C to be a 
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two-dimensional, 6 x 2 array. If the second subscript (J) is equal to 1 we will refer to the data for single persons, 
whereas J=2 will indicate the data for married persons. Hence C(1,1)=88, С(2,1)-133,..., С(6,1)-917, 
C(1,2)=88, С(2,2)-183,..., С(6,2)- 1667. 

In a similar manner let T be a two-dimensional, 6 x 2 array which contains the amount of the base tax in 
each income bracket, and let R be a two-dimensional, 6 x 2 array which represents the tax rate (expressed as a 
decimal) for each income bracket. Thus Т(1,1)-0, Т(2,1)-6.30,..., T(6,1)=160.92, T(1,2)=0, Т(2,2)-13.30,..., 
T(6,2)=291.01; and R(1,1)=0.14, Е(2,1)-0.17,..., Е(6,1)-0.24, R(1,2)=0.14, R(2,2)=0.17, ..., R(6,2)=0.25. 


The Program Outline 
Let us define the following symbols. 


N$ = employee’s name P2 = adjusted gross monthly salary 
M$ = marital status (M for married, S for single) P3 = net monthly salary 

N = employee number ТІ = state tax withheld 

E = number of exemptions T2 = local tax withheld 

P1 = gross monthly salary ТЗ federal tax withheld 


The computation will be carried out as indicated below. 


1. Assign numerical values to the 6 x 2 arrays C, R and T by means of READ and DATA statements. (А 
nest of double FOR-TO loops will be required for each array, as discussed in Chapter 5.) 


2. Read an appropriate string value for N$. 
(a) If N$- END then terminate the computation. 


(b) Otherwise proceed with step 3 below. 
3. Read an appropriate string or numeric value for N, P1, M$ and E. 
Compute numeric values for T1, T2 and T3 by referencing the appropriate subroutines. 
5. Calculate a value for P3 using the formula 
P3=P1—(T1+T2+T3) 
6. Print the current values for T3, T1, T2 and P3. 
7. Return to step 2 and begin to process data for the next employee. 
The subroutine that is referenced directly in step 4 above will proceed as follows. 
1. Examine the value of P1. 
(a) If P1 does not exceed $600, then calculate a value for ТІ (state tax) 
T1=0.01+P1 
and proceed to step 2 below 
(b) ТЕРІ exceeds $600 but does not exceed $2000, then calculate a value for ТІ using the formula 
Т1=6+0.015*(Р1-600) 
and proceed to step 2 below. 
(с) ИР! exceeds $2000, then evaluate T1 as 
T1=27+0.02*(P1—2000) 
and proceed with step 2 below. 
2. Again examine the value of P1. 
(a) If P1 does not exceed $800, then calculate a value for T2 (local tax) as 
Т2=0.01*Р1 
and proceed to step 3 below. 
(b) If P1 exceeds $800, then set T2=8 and proceed with step 3 below. 
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3. Calculate a value for P2 (adjusted gross monthly salary) using the formula 


P2=P1-54.20*E 


(a) If P2 is less than or equal to zero, then 


set T3 (federal tax) equal to zero and i 
parrot ho Wa Бы; ) eq nd return to the main 


(b) 1f P2 has a positive value, then reference the subroutine that will determine a value for T3 and 
return to the main part of the program. 


The subroutine that computes a value for T3 (federal tax) will proceed in the following manner. 


l. Determine whether the employee is single or married by examining the string M$. 


(a) If M$=S, assign a value of 1 to the subscript J and proceed to step 2 below. 
(b) If M$-M, then let J=2 and proceed with step 2 below. 
2. Assign an initial value of zero to T3. 
3. Compare P2 with С(1,)) for all values of I ranging from 1 to 6. 
(a) 1f P2 does not exceed C(1,J), then retain the value of Т3=0 and return to the reference point. 


(b) If P2 exceeds C(1,J), then proceed through the loop until a value of C(LJ) is found that exceeds 
P2. If such a value is found, then calculate a value for T3 as 


T3- T(I-1,J) -R(I- 1,J)«(P2- C(I- 1,J)) 
and return to the reference point. à 


(c) If P2 exceeds C(I,J) at the end of the loop (i.e., when I=6), then calculate a value for ТЗ using the 
formula 


T3=T(6,J)+R(6,J)*(P2—C(6,J)) 
and return to the reference point. 


Figure 6.15 contains a detailed flowchart corresponding to the above outline. 


The BASIC Program 


A complete BASIC program is shown in Fig. 6.16. Notice that the first subroutine, which computes the 
adjusted gross income and the state and local tax, is composed of statements 400 through 580. Two separate 
RETURN statements are included (lines 560 and 580). The subroutine is referenced by statement number 310 in 
the main part of the program. 

Statements 600 through 730 make up the second subroutine, which is used to calculate the federal tax. We 
see that this subroutine contains only one RETURN statement (line 730) and is referenced by statement number 
570 in the first subroutine. (Hence the subroutines are nested.) Note that a FOR-TO loop (lines 660 through 710) 
is included within this second subroutine. 

It is also interesting to observe that this program contains both READ and INPUT statements. The READ 
statements are used to assign values to the arrays C, R and T at the start of the program execution, whereas the 
INPUT statements are used to enter the information required for each employee. 

The reader should understand that this program could just as easily have been written without making use 
of subroutines. Hence the purpose of the subroutines, in this example, is to organize the program into several 
well-defined, self-contained “packages.” We have seen a similar situation with regard to programmer-defined 
functions in Example 6.15. There are some situations, however, in which the programming effort is simplified 
significantly through the use of subroutines. This is especially true of programs that contain several references to 
the same subroutine. 

Finally, Fig. 6.17 shows a typical set of output for seven different employees. Notice that all of the data 
(both input and output data) for each employee are shown in a well-organized and neatly labeled block. The 
input data are underlined. 
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REM COMPUTATION OF A MONTI 
DIM C(é,2),R(6,2),T(6,2) ры 
FOR 2-1 TO 2 
FOR Ізі To 6 
READ C(I,J) 
NEXT I 
NEXT J 
FOR J=1 To 2 
FOR I=1 To 6 
READ R(I,J) 
NEXT I 
NEXT J 
FOR J=1 To 2 
FOR I=1 To 6 
READ T(I,J) 
NEXT I 
NEXT J 
PRINT, "MONTHLY PAYROLL" 
PRINT 
PRINT "NAME"; 
INPUT N$ 
IF N$-"END" THEN ВОО 
PRINT “EMPLOYEE NUMBER"; 
INPUT N 
PRINT "GROSS SALARY"; 
INPUT P1 
PRINT "MARITAL STATUS (M OR S)"; 
INPUT M$ 
PRINT "NUMBER OF EXEMPTIONS"; 
INPUT E 
GOSUB 400 
LET PS=P1-(T1+T2+T3) 
PRINT "FEDERAL TAX=$";T3, "STATE TAX=$";T1, "LOCAL TAX=$";T2 
PRINT "NET SALARY=$";P3 
GOTO 190 
DATA 88,133,217,433,583,917,88,183,333,708, 1147, 1667 
DATA .14,.17,.20,.18,.21,.24,.14,.17,.16,.19,.21,.25 
DATA 0,6.3,20.58,63.78,90.78,160.92,0,13.5,38.8,98. 8,186. 01,291.01 


REM COMPUTATION OF STATE TAX, LOCAL TAX AND ADJUSTED GROSS SALARY 


IF-P1»2000 THEN 480 
IF Р1>600 THEN 460 
LET Тіз.О1жР1 

GOTO 490 

LET Тізсб%.015%(Р1-800) 
GOTO 490 

LET Т1=27+.02+(Р1-2000) 
IF Р1>800 THEN 520 
LET T2-.01*«P1 

GOTO 550 

LET Т2=8 

LET P2-P1-54.2*E 

IF Р2>0 THEN 570 

LET T3=0 

RETURN 

GOSUB 600 

RETURN 


REM COMPUTATION OF FEDERAL TAX 


LET J=2 
IF M$-"M" THEN 650 
LET J=1 
LET T3=0 
FOR Ізі TO é 
IF P2»C(I,J) THEN 710 
IF I-1 THEN 730 
LET T3-T(I-1,J) *RCI-1,J) * CP2-C (1-1,9)) 
GOTO 730 
NEXT I 
LET T3S=T(I,J)+R(I,J)#*(P2-C(I,J)) 
RETURN 
END 
Fig. 6.16 
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MONTHLY PAYROLL 


NAME ?ANDREWS, J J 
EMPLOYEE NUMBER 72717 
GROSS SALARY 7870.00 
MARITAL STATUS (M OR S) ?М 
NUMBER OF EXEMPTIONS 72 
FEDERAL ТАХ=$ 108.984 

NET SALARY=$ 742.966 


МАМЕ ?СОНЕМ, A M 
EMPLOYEE NUMBER 25575 
GROSS SALARY 71250.00 
MARITAL STATUS (М OR 5) ?М 
NUMBER OF EXEMPTIONS 73 
FEDERAL ТАХ=$ 170.886 

МЕТ SALARY-$ 1055.36 


NAME 7DIPASQUALE, G V 


EMPLOYEE NUMBER 74660 
GROSS SALARY 72075.00 
MARITAL STATUS (M OR 8) ?8 
NUMBER OF EXEMPTIONS 71 
FEDERAL ТАХ=$ 425.832 

МЕТ SALARY-$ 1612.67 


NAME ?HOLLAND, C J 
EMPLOYEE МИМ! 892 
GROSS SALARY 7520.00 
MARITAL STATUS (M OR S) 7S 
NUMBER OF EXEMPTIONS 72. 
FEDERAL ТАХ=$ 59.5 

5.2 

МЕТ SALARY-$ 450.1 


NAME ?JONES, D M 

EMPLOYEE NUMBER 74839 
GROSS SALARY 71120.00 
MARITAL STATUS (M OR S) 2M 
NUMBER OF EXEMPTIONS 72 
FEDERAL TAX=$ 156.484 

МЕТ SALARY-$ 941.716 


МАМЕ ?KOWALSKI, S 

EMPLOYEE NUMBER 78462 
GROSS SALARY 71100.00 
MARITAL STATUS (M OR S) ?7M 
NUMBER OF EXEMPTIONS 7; 
FEDERAL ТАХ=$ 142.386 

МЕТ SALARY-$ 936.114 


МАМЕ ?LOWE, H G 

EMPLOYEE NUMBER 79587 
GROSS SALARY 71075.00 
MARITAL STATUS (M OR S) 7M 
NUMBER OF EXEMPTIONS ?5 


FEDERAL TAX=$ 117.04 
NET SALARY=$ 936.835 


NAME ?END 


STATE TAX=$ 


STATE TAX-$ 


STATE TAX-$ 


STATE ТАХ-% 


STATE TAX-$ 


STATE ТАХ=$ 


STATE ТАХ=$ 


Fig. 6.17 
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LOCAL ТАХ=$ 8 


LOCAL ТАХ=$ 8 


LOCAL ТАХ=$ 8 


LOCAL TAX=$ 


LOCAL ТАХ=$ 8 


LOCAL TAX-$ 8 


LOCAL ТАХ=$ 8 


— 


>. 
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6.10 GRAPHICAL OUTPUT 


Many computer Programs generate a list of numeric output data that is eventually plotted on 
graph paper. In such cases it is often very effective to have the computer generate the graph directly 
on a hard-copy terminal, in addition to the regular numerical output data. This allows the user to see 
the general appearance of the graph and then refer to the more precise tabulation of the data if 
necessary. 

It is very easy to produce а graph on a hard-copy terminal. To do so we must make use of a 
FOR-TO loop which includes a PRINT statement containing the TAB function. A graph produced in 


this manner will run vertically down the printed page, with the actual curve being represented by a 
number of closely spaced discrete points, as shown in Fig. 6.18. 


The detailed mechanics of producing the graph are best described by means of an example. 


Direction of paper movement 


! ! ! ! 1 


Fig. 6.18 
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EXAMPLE 6.27 


A BASIC program has generated two numeric lists, Y and T, which describe the position of a projectile at 
various times. (The elements of Y represent the height of the projectile, and the elements of T represent the 
corresponding times.) We wish to produce a graph of Y against T, thus indicating the trajectory of the projectile, 
on a 72-character hard-copy terminal. In order to generate the graph as clearly as possible we will double space 
the points on the curve; i.e., we will place a blank line between each asterisk, as shown in Fig. 6.18. 

Since the graph will be positioned vertically along the page, the Y axis will be generated by a single line of 
dots (periods). The T axis will run perpendicular to the printed line (i.e., down the page). Hence one dot of the T 
axis will be printed on each line of output. 

Let us first print out the Y axis, showing the position of the projectile at the top of the axis (at time zero). To 
do this we print a dot (period) in each of the first 71 positions and then place an asterisk in the 72d position. 


. Hence we can write 


580 FOR J=0 TO 70 

590 PRINT TAB(J);"."; 
600 NEXT J 

610 PRINT TAB(71);"«" 
620 PRINT “.” 


Statements 580 through 610 will produce the Y axis, as described above. A subsequent line, containing only a 
dot in the first column (to represent a part of the T axis), will be generated by statement 620. This line is 
required in order to obtain the desired double spacing. 

Next we will want to print the position of the projectile at different times. Let us generate two lines of 
output for each time. The first of these will contain a dot (representing the T axis) in the first column and an 
asterisk (representing the position of the projectile) at some appropriate position along the line. The second line 
will be a spacer, containing only a dot in the first position. To accomplish this we can write 


630 FOR 1=2 TO I1 

640 LET J-INT(71*Y(D/Y(1)) 
650 IF J=0 THEN 680 

660 PRINT *.";TAB(J);*»" 
670 GO TO 690 

680 PRINT “+” 

690 PRINT 4,” 

700 NEXT I 


where П is an integer variable that indicates the last point to be plotted (the last time). Notice that the first line 
of output is produced by statements 640 through 680, and the second line is generated by statement 690. 
The statement 


640 LET J-INT(71*Y(D/Y(1)) 


may require some additional clarification. First, note that Y(1) is the original height of the projectile. If we 
assume that this represents the maximum height of the projectile, then Y(I), the height of the projectile at the 
Ith time, will be some number bounded between zero and Y(1). We are seeking a value for J, an integer which is 
bounded between 0 and 71. The value for J will indicate the position of the asterisk on the graph, i.e., J-0 
corresponds to Ү(1)-0, and J=71 corresponds to Y(I)- Y(1). Hence by direct proportion, 


= ог J=71*Y()/Y() 


Since J can take on only integer values, we write 
J=INT(71*=Y(D/Y(1)) 


In Example 6.28 we will see a complete BASIC program that generates both numerical and 
graphical outputs. 
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EXAMPLE 6.28 Simulation of a Bouncing Ball 


In this example we would like to calculate the movement of a rubber ball as it bounces up and down under 
the force of gravity, while at the same time traveling in the horizontal direction with a constant velocity. We will 
assume that the initial vertical displacement (that is, the original height above the ground) is specified (H), along 
with the horizontal velocity (V) and the number of times the ball bounces (N). Also known will be the bounce 
coefficient (C), which is the ratio of the vertical velocity just after impact to the vertical velocity just before 
impact 
Computational Procedure 

In order to calculate the position of the ball at various times, we will first select a small increment of time 
(D) and then make use of the following laws of physics, which apply within each time increment: 


T(I+1)=T(D+D 
X(I+1)=X(I)+V*D 
Z(I*1)-Z(I)-G*«D 
Ү(1+1)=Ү(1)+.5*(2(1)+2(1+1))*р 
where X refers to the horizontal displacement (originally zero at the start of the problem), Z is the vertical 


velocity (also zero at the start of the problem), Y is the height above the ground and G is the acceleration due to 
gravity (32.2 ft/sec). The subscripts I and I+1 refer to the values of the different variables at the start and-end of 


the time increment, respectively. 
If a bounce occurs during the time increment, the computational formulas must be modified somewhat. A 


bounce condition is signified by a negative value for Y(I+1), which is physically impossible. When this condition 
occurs we recalculate 2(1+1) and Y(I+1) as follows. First calculate the time required for the ball to hit the 
ground, starting from its position at the start of the Ith time increment. If we call this time D1, then, from simple 


proportionality, 
Di 2 Ү(І)-0 
D Y(D-Y(I+1) 

which can be written in BASIC as 
D1=D=*Y(ID/(Y(D—-Y(I+1)) 

We can compute the vertical velocity immediately before impact as 
Z=Z(I)-G*D1 

so that the vertical velocity immediately after impact will be 
Z1--C*(Z(I)- G*D1) 

Now the vertical velocity at the end of the time increment will be 
Z(I-1)- ZI- G«(D-DIl) 

and the vertical displacement at the end of the time increment can be written as 
Y(I+1)=.5*(Z1+Z(I+1))*(D—D1) 


Тве Program Outline 
We now have enough information at our disposal to write ап outline of a complete BASIC program. 
Specifically, 
1. Read H, V, N, C and D. 
(a) If H=0, them terminate the computation. 
(b) If H is assigned some positive value, then proceed below. 
2. Initialize all parameters: 
I=1 (I is the increment counter) X(1)=0 
B=0 (B is the bounce counter) Z(1)=0 
T(1)=0 Ү(1)-Н 
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------------, 


3: 


4. 
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Сотрше the horizontal and vertical displacement and the vertical velocity for each time increment, 
using the formulas given above. 
If the ball hits the ground during the time increment, test to see whether this is a bounce condition or a 


program termination. 
(а) Bounce condition (B<N)—recalculate the vertical velocity and the vertical displacement to account 
for the bounce, increment the bounce counter (i.e., B=B+1) and then continue to the next time 


increment. 
(b) Terminal condition (B=N)—obtain the final time and the horizontal displacement when the ball 
hits the ground. 


START 


CALCULATE 
T(I+1),X(I+1), 


Z(1+1),¥(1+1) 


RETURN 


I 

I 

| 

| 

I 

| 

| 

I 

I 

I 

р 

I 

! RECALCULATE 
I 24141) AND RECALCULATE 
| YO) D 
| 

| 

| 

| 

| 

| 

| 

І 

| 

| 

| 

I 


B=T(1)=0 
X(1)=Z(1)=0 


PRINT FINAL 
VALUES FOR 
T AND X 


PRINT 
TABULAR 
OUTPUT 


PRINT 
GRAPHICAL 
OUTPUT 


Fig. 6.19 


ри y 
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5. Print the final values for X and T, followed by a complete tabulation of T, X, Y and 7. 
6. Plot Y against T, using the method discussed in Example 6.27. 
7. Return to step 1. 


An overall flowchart of the computation is shown in Fig. 6.19. Notice that the computation of T(I+1), 
Х(1+1), Z(I+1) and Y(I+1) is shown within the structure of a subroutine. 

Тһе reader who has studied пшпегіса! calculus should recognize that we are integrating the second-order 
differential equation d^y/d? = —g in this example. The integration technique is known as a modified Euler 
method. 


The BASIC Program 


Figure 6.20 shows a complete BASIC program for carrying out the computation. The program allows for as 
many as 100 consecutive time increments; thus the length of the time increment (D) should be chosen sufficiently 
large so that the number of time increments does not exceed this figure. [On the other hand, D cannot be 
assigned too large a value or else the given formulas for calculating Т(1+1), Х(1+1), Ү(1+1) and 2(1+1) will not 
apply. As a rule of thumb, each bounce should be represented by 8 to 20 points.] 


10 REM SIMULATION OF А BOUNCING BALL 
20 DIM Х(100) ,¥ (100) ,Z(100) ,T(100) 

50 PRINT "INITIAL HEIGHT OF BALL (FT)"; 

40 INPUT H 

50 IF H-O THEN 810 

60 PRINT "INITIAL HORIZONTAL VELOCITY (FT/SEC)"; 
70 INPUT V 

80 PRINT "NUMBER OF BOUNCES"; 

90 INPUT N 

100 PRINT "BOUNCE COEFFICIENT"; 

110 INPUT C 

120 PRINT "LENGTH OF TIME INCREMENT (SEC)"; 
130 INPUT D 

140 PRINT 


160 REM INITIALIZE PARAMETERS 


180 LET B=T(1)=X(1)=Z(1)=0 
190 LET Y(1)=H 
200 LET G=32.2 


220 REM COMPUTE VELOCITY AND DISPLACEMENT FOR EACH TIME INCREMENT 


240 FOR I=1 TO 99 
250 GOSUB 730 
260 IF Ү(1+1) >0 THEN 330 
IF B=N THEN 360 
555 LET D1=D*Y(I)/(Y(I)-Y(I+1)) ‘CORRECT FOR BOUNCE CONDITION 
290 LET 71--Сж(7(1)-бж01) 
300 LET Z(I+1)=Z1-G*(D-D1) 
310 LET Y(I+1)=.5*(Z1+Z(I+1))*(D-D1) 
320 LET В=В+1 
330 NEXT I 
340 GOTO 400 


360 REM BALL HITS GROUND FOR LAST TIME 


ЗВО LET D=D*Y(I)/(Y(I)-Y(I+1)) 
390 GOSUB 730 

400 LET 11=1+1 

410 LET Т1=Т (11) 

420 LET Х1=Х (11) 


Fig. 6.20 (Program continues on next page) 
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440 REM PRINT NUMERICAL DUTPUT 

450 

460 PRINT "HORIZONTAL DISTANCE TRAVELED="; X1; "FT" 
470 PRINT "TIME REQUIRED-";T1; "SECS" 

480 PRINT 

490 FOR I-1 TO I1 

500 PRINT "T=";T(I),"X=" 
510 МЕХТ 1 

520 PRINT 

550 

540 REM PRINT GRAPHICAL OUTPUT 

550 

560 PRINT "GRAPHICAL SOLUTION ТО BOUNCING BALL PROBLEM" 

570 PRINT 

580 FOR J=0 TO 70 

590 PRINT ТАВ (Ј);"."; 

600 МЕХТ Ј 

610 PRINT ТАВ (71) "ж" 

620 PRINT "." 

630 FOR I-2 TO I1 “GENERATE SUCCESSIVE POINTS OF CURVE 
640 LET JeINT(71*Y(I)/Y(10) 

650 IF 1-0 THEN 680 

660 PRINT "."j TAB(J) ; "«" 

670 GOTO 690 

680 PRINT "+" 

690 PRINT "." 


3XOD "Y="; YCD) ,"Z=";Z(I) 


700 NEXT I 

710 GOTO 50 

720 

730 REM SUBROUTINE TO CALCULATE VELOCITY AND DISPLACEMENT AT END 
740 REM OF TIME INCREMENT 

750 


760 LET T(I+1)=T(1)+D 

770 LET X(I+1)=X(I)+V*D 

780 LET Z(I+1)=Z(I)-G*D 

790 LET \(1+1)=\(1)+.5%(7(1+1)+7(1))*0 
800 RETURN 

810 END 


Fig. 6.20 (continued) 


The subroutine which is used to evaluate T(I+ 1), Х(1+1), Z(I+1) and Y(1+1) is made up of statements 
730-800. It should be understood that the subroutine structure is not at all essential for carrying out these 
calculations. Use of a subroutine is desirable, however, since this block of statements is referenced from two 
different places within the program (namely statements 250 and 390). 

The generation of the tabular output data is carried out in a straightforward manner by means of a 
FOR-TO loop (statements 490 through 510). Although the method used to generate the graph (statements 560 
through 700) is less obvious, we see that this portion of the program is identical to the material discussed in 
Example 6.27. Hence the logic used should be readily apparent. 


Figure 6.21(a) contains the numerical output which is generated for the following input data. (The input 
data are underlined.) 


H = 2.00 ft 

V = 1.20 ft/sec 
N-3 

С = 0.80 

D = 0.05 sec 


We see that а distance of 2.06 feet is ге 


quired for the ball to experience three complete bounces. The 
corresponding time is 1.72 seconds. 
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INITIAL HEIGHT OF BALL (FT) 72.00 


INITIAL HORIZONTAL VELOCITY (FT/SEC) 71.20 


NUMBER OF BOUNCES 73 
BOUNCE COEFFICIENT 70.80 
LENGTH OF TIME INCREMENT (SEC) 70.05 


HORIZONTAL DISTANCE TRAVELED= 2.06344 FT 
TIME REQUIRED= 1.71953 SECS 


T= O x= 0 Y= 2 
T= 0.05 X= 6.00000Е-2 Y= 1.95975 
T= 0.1 X= 0.12 Y= 1.839 
T= 0.15 X= 0.18 Y= 1.63775 
T= 0.2 X= 0.24 Y= 1.356 
T= 0.25 X= 0.3 Y= 0.99375 
T= 0.3 X= 0.36 Y= 0.551 
T= 0.35 X= 0.42 Y= 2.77500Е-2 
T= 0.4 X= 0.48 Y= 0.596269 
T= 0.45 X= 0.54 Y= 0.732979 
T= 0.5 X= 0.6 Y= 0.989189 
T= 0.55 X= 0.66 Y= 1.1649 
T= 0.6 X= 0.72 Y= 1.26011 
b T= 0.65 x= 0.78 Y= 1.27482 
T= 0.7 x= 0.84 Y= 1.20905 
E Т= 0.75 Х= 0.9 Y= 1.06274 
я Т= 0.8 Х= 0.96 Үш 0.855949 
Т= 0.85 Х= 1.02 Үш 0.528659 
— Т= 0.9 Х= 1.08 Y= 0.140869 
Ñ T= 0.95 x= 1.14 Y= 0.233292 
- Ta Xs 1.2 Y= 0.498562 
= T= 1.05 x= 1.26 Y= 0.683332 
T= 1.1 X= 1.32 Y= 0.787602 
. T= 1.15 x= 1.38 Үш 0.811372 
T= 1.2 x= 1.44 Үш 0.754642 
= T= 1.25 Х= 1.5 Y= 0.617413 
Т= 1.5 Х= 1.56 Y= 0.399683 
Т= 1.55 x= 1.62 Үш 0.101453 
= T= 1.4 X= 1.68 Y= 0.189303 
T= 1.45 X= 1.74 Y= 0.378152 
~ T= 1.5 x= 1.8 Y= 0.486501 
T= 1.55 X= 1.86 Y= 0.514351 
=й T= 1.6 Х= 1.92 Y= 0.4617 
T= 1.65 Х= 1.98 Ү= 0.528549 
T= 1.7 x= 2.04 Үс 0.114898 
= T= 1.71953 X= 2.06344 Y= 9. 58086E-3 
v (a) 
о» Fig. 6.21 (continues оп p. 156) 


In Fig. 6.21(b) we see а computer-prepared 
individual bounces can be seen very clearly in this figure. 


7= O 
7=-1.61 
Z=-3.22 
Z=-4.83 
Z2-6.44 
Z=-8.05 
Z2-9.56 
7=-11.27 
1- 7.5592 
Z= 5.9292 
1- 4.5192 
z= 2.7092 
7= 1.0992 
Z=-0.5108 
z=-2. 1208 
Z=-3. 7308 
1--5.5408 
Z=-6. 9508 
Z=-8. 5608 
Z= 6.1104 
Z= 4.5004 
Z= 2.8704 
Z= 1.2804 
Z=-0. 329597 
Z=-1.9396 
Z=-3. 5494 
z=-5. 1596 
Z=-6. 7696 
Z= 4.58198 
Z= 2.97198 
Z= 1.34198 
=-0. 248016 
z=-1.85802 
z=-3. 46802 
1--5.07802 
z=-5.7069 
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prepared graph showing the position of the ball at various times. The 


Finally, the bottom of Fig. 6.21(b) shows a request for a new set of input data. The computation is 


terminated by supplying a zero value for H. 


We will say much more about the 
concerned with microcomputer graphics. 


generation of graphical output in Chapter 12, which is 


GRAPHICAL SOLUTION TO BOUNCING BALL PROBLEM 
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NITIAL HEIGHT OF BALL (FT) 70 


(5) 
Fig. 6.21 (continued) 
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6.1 


6.2 


6.3 


6.4 


6.5 


6.6 


6.7 


6.8 


6.9 


6.10 


6.11 


6.12 


6.13 


6.14 


6.15 


6.16 


6.17 


6.18 


6.19 


6.20 


6.21 


6.22 


Review Questions 


What are the differences between a function and a subroutine? 


Are functions and/or subroutines ever required in a BASIC program? What are the advantages in their 
use? 


In what way can functions and subroutines be helpful in improving the organization of a BASIC 
program? 1 


Summarize the rules for naming functions. How are numeric functions distinguished from string 
functions? 


What is the purpose of the DEF statement? How is it written? 


What are the rules that govern the use of arguments in a function? Can a function make use of variables 
that are not specified as arguments? 


What is the difference between a function definition and a function reference? How is a function 
referenced? 


What are dummy arguments? What correspondence must exist between a set of arguments in a function 
reference and the associated dummy arguments? 


Can an argument consist of something other than a nonsubscripted variable (e.g., a constant, subscripted 
variable or formula)? Is this also true of a dummy argument? 


How is a DEF statement written for a multiline function? 
Cite two places where the function name must appear in a multiline function. 


What is the purpose of the FNEND statement? How is it written? 


Can control be transferred out of a multiline function by means of a GO TO statement? A RETURN 


statement? 


Must the value returned by a function be of the same type as the function's arguments? 


Is it necessary that all of the arguments in a function be of the same type? 


How are characters stored within a computer? 


What is the 7-bit ASCII code? 


What is the purpose of the CHANGE statement? Cite two different ways that it can be written. 


What is the purpose of the ASC function? How is it used? 


What is the purpose of the CHR$ function? How is it used? 
sed? Does this function require an argument? 


What is the purpose of the RND function? How is it u 


pseudo-random numbers? How do pseudo-random numbers differ from numbers that 


What is meant by 
are truly random? 
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6.31 


6.32 
6.33 


6.34 


6.35 
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What is the purpose of the RANDOMIZE statement? How is it written? 


Summarize the rules for defining a subroutine. Must a subroutine begin with any particular statement? 


Can arguments be included in a subroutine? 
Can a subroutine end with an FNEND statement? A RETURN statement? An END statement? 


What is the purpose of the RETURN statement? How is it written? What happens when a RETURN 
statement is encountered during program execution? 


Can a subroutine contain more than one RETURN statement? Explain. 


What is the purpose of a GOSUB statement? How is it written? Can a program which has only one 
subroutine contain more than one GOSUB statement? 


Can a FOR-TO loop be included in a subroutine or a multiline function? 


Can control be transferred out of a subroutine by means of a GO TO statement? An IF-THEN 
statement? 


Describe the hierarchical ordering that must be observed when subroutines are nested. 
What advantage is there in the graphical display of output data? 


Which library functions are used to produce graphical output? In what type of programming structure 
are these functions usually included? 


Solved Problems 


Write a BASIC function for each of the situations described below. 


(u/v) + (x/y) 
2 


10 DEF FNZ(U,V,X,Y)=(U/V+X/Y)/2 


(a) Evaluate the algebraic formula z = 


(b) If X represents a positive decimal quantity, obtain a rounded value for X with two digits 
to the right of the decimal point. 


20 DEF FNY(X)= .01*INT(100*(X+.005)) 


2_ 
(с) Evaluate the algebraic formula p= { Ы A - a РЯ £ 
og (Г or f <a 


30 DEF FNP(T,A) 

40 IF T<=SQR(A) THEN 70 
50 LET FNP-LOG(T!2-A) 
60 GO TO 80 

70 LET FNP=LOG(T12) 

80 FNEND 


— 


E 


(f) Calculate the average of two random numbers, 


6.36 Each of the situations described 
Problem 6.35. Write an арргоргїа! 


(b) Suppose T represents some po: 
for T1, where T1 has the same value as T except t 


two digits. [See Problem 6.35(b).] 
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(d) Calculate the sum of the first N elements of the numeric list L; і.е., compute the sum 


L(1)+L(2)}+ «+: +L(N). 


100 DEF FNS(N) 
110 LET $=0 

120 FOR I=1 ТО N 
130 LET S=S+L() 
140 NEXT I 

150 LET FNS=S 

160 FNEND 


(e) Suppose that M$ and N$ each represent a single letter. Construct a single string containing 
the two letters, arranged in alphabetical order. 


200 DEF FNNS(MS,N$) 
210 LET L(0)=2 

220 IF M$>N$ THEN 260 
230 LET L(1)=ACS(M$) 
240 LET L(2)=ASC(NS) 
250 GO TO 280 

260 LET L(1)- А8С(М5) 
270 LET L(2)- ASC(M$) 
280 CHANGE L TO L$ 
290 LET FNN$-L$ 

300 FNEND 


each having a value between A and B. 


100 DEF FNR(A,B) 

110 LET R1=A+(B-A)*RND 
120 LET R2- A+(B-A)*RND 
130 LET FNR=(R1+R2)/2 
140 FNEND 


This function can also be written as simply 


100 DEF FNR= A+(B-A)*(RND+RND)/2 


below requires a reference to one of the functions defined in 
te BASIC statement, or a sequence of statements, in each 


(a) Print а value for f, where 


ys a»: (cld) 


[See Problem 6.35(a).] 


100 PRINT FNZ(A,B,C,D) 


sitive quantity whose value may exceed 1. Calculate a value 
hat the decimal portion of T1 is rounded to 


110 LET T1=INT(T)+ FNY(T-INT(T)) 


160 
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(c) Let P1 represent the quantity 


log [(а+ 52-с] if (at+by>c 
апа 
log [(a + by] if (a+ by zc 


[See Problem 6.35(с).] 
30 LET P1=FNP((A+B),C) 


(d) A numeric list L contains 101 elements. Beginning with L(1), determine how many 
consecutive elements can be added without the sum exceeding a value of 25. [See Problem 
6.35(d).] 


40 FOR J-1 TO 100 

50 IF FNS(J)>25 THEN 80 
60 NEXT J 

70 LET J-101 

80 PRINT "N-"J-1 


(e 


<~ 


The variables M and N each represent the ASCII equivalent of a single letter (character). 
Form a string consisting of the two letters, in alphabetical. order. [See Problem 6.35(e).] 


80 LET L$=FNN$(CHR$(M),CHR$(N)) 
(f) Determine the average of two random numbers, each having a value between 1 and 10. 


Transfer control to statement number 250 if this average value exceeds 5. [See Problem 


` 635(f)] 
100 IF FNR(1,10)>5 THEN 250 


Each of the following problems contains a function definition and/or function reference which 
is incorrectly written. Identify all errors. 


(a) DEF FNW(A,B,Ct2,3)=((A+B)*C12)/3 


Constants and formulas cannot be used as dummy arguments. 
(b) 10 DEF FNC(T1,T2,N)=((T1—T2)/T2)tN 


60 LET V=C+FNC(2*A,F$) 


The arguments in the function reference do not agree in number or in type with the dummy 
arguments in the function definition. 


(c) 10 DEF FN4(X(1),X(2),X(3))= Х(1)+2*Х(2)-3*Х(3) 
This statement contains two errors: 
(i) The function is named incorrectly. 
(ii) Subscripted variables cannot appear as dummy arguments. 


(d) 10 DEF FNG(A,B,C) 
20 LET Р=А+В*Х+С*Х12 
30 LET О=В+С*Х 
40 LET G=P+Q#X+C+Xt2 
50 FNEND 


Тһе function name (ЕМС) is not assigned a value within the function. 
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100 DEF FNC(X,Y,Z) 

110 IF X+Y>=Z THEN 140 
120 LET FNC-LOG(Z- (X--Y)) 
130 RETURN 

140 LET FNC=LOG(Z) 

150 FNEND 


Control cannot be transferred out of a function by means of a RETURN statement. 


6.38 The following groups of statements represent portions of BASIC programs that contain one or 
more subroutines. Each example is written correctly. 


(a) 


(b) 


(c) 


10 DIM L(100) 

60 GOSUB 200 

120 GOsUB 200 
160 GOsUB 200 
190 STOP 

200 LET S=0 

210 FOR 1=1 TO N 
220 LET S=S+L(I) | Subroutine 
230 NEXT I 

240 RETURN 

250 END 


Notice that the subroutine is referenced from three different points within the program. 


50 GOSUB 120 

120 IF A>B THEN 150 

130 LET C=SQR((B—A)tN) 

140 RETURN Subroutine 
150 LET C=SQR(((A+B)/(A-B))tN) 

160 RETURN 


The subroutine in this example contains two RETURN statements. 


10 DEF FNZ(X,Y)=X12+Y12 

70 созі» 180 

180 REM SAMPLE SUBROUTINE 

210 LET W=FNZ(A,B+C) Subroutine 


250 RETURN 


Notice that the subroutine references the programmer-defined function FNZ. 
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75 GOSUB 300 

125 1 СО$ОВ 200 

200 LET 7.=С1*Х+С2*Ү 

250 GOSUB 300 First subroutine 


290 RETURN 
300 LET W=(U+V)/Z 
Second subroutine 
370 RETURN 
380 END 
This example makes use of nested subroutines. Notice that the second subroutine is 
referenced by both the first subroutine and the main part of the program. 


6.39 The following groups of statements represent portions of BASIC programs that contain 
subroutines. Each example contains one or more errors. Identify all errors. 


(a) 45 GOSHB 165 


(b) 


(c) 


165 LET C=C1+C2+C3 


0 Go оо) Subroutine 


225 RETURN 
230 FNEND 
235 END 


This example contains two errors: 
(i) Control cannot be transferred out of a subroutine by means of a GO TO statement. 
(ii) A subroutine cannot end with an FNEND statement. 


60 SUSUR 200 
120 IF X<Y THEN 225 
200 REM START OF SUBROUTINE 


Subroutine 
300 RETURN 


Control cannot be transferred into a subroutine by an IF-THEN statement. 


30 PUE 100 
100 REM SUBROUTINE A 
120 GOSUB 200 Subroutine A 


160 RETURN 
200 REM SUBROUTINE B 


225 GOSUB 100 Subroutine B 


245 RETURN 


t> 
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Тһе subroutines аге not nested properly. (Subroutine A references subroutine B, which in turn 
references subroutine A.) 


Write a portion of a program to generate a graph of the function y = sin t. Generate 130 
points, double-spaced, with the ¢ axis running down the center of the printed page. Let the 
time increment be 0.1 second. 


Write a BASIC function to evaluate each of the algebraic formulas shown below. 


(а) у= ах? 


10 FOR 1-0 ТО 70 


20 IF 1-35 ТНЕМ 50 
30 PRINT ТАВ() 7; 

40 GO ТО 60 

50 PRINT TAB(J);“*”; 

60 NEXT J 

70 PRINT 

80 PRINT TAB(35);." 

90 LET T-0 

100 FOR 1=2 TO 130 

110 LET Т=Т+.1 

120 LET J=35+INT(35*SIN(T)) 

130 IF J>35 THEN 190 

140 IF J-35 THEN 170 

150 PRINT TAB(J);**";TAB(35);." 
160 GO TO 200 

170 PRINT TAB();«" 

180 GO TO 200 

190 PRINT TAB(35); "| TAB(J);**" 
200 PRINT TAB(35);*." 

210 NEXT I 

220 END 


Supplementary Problems 


(b) а= co+ cir car + сы? + cart 
(с) i=(j+ky** 

_ [Vb - дас if b?» 4ас 
sies if b « 4ac 


(a) 


Write a BASIC function for each of the situations described below. 


(a) 
(b) 


(c) 


(d) 


(e) 


If Z represents some positive quantity whose value may exceed 1, obtain a rounded integer value. 
Calculate the product of the first N elements of the numeric list T; i.e., compute the product 


T(1)*: + -*T(N). 


Generate fivé random numbers, each having a value between A and B, where A and B represent 


positive quantities and B>A. Return the value of the largest number. 


Examine the sign of the number represented by some variable X. If X is negative, return the string 
NEGATIVE: if X is positive, return the string POSITIVE; and if X has a value of zero, return the 


string ZERO. 
Suppose N$ represents a mulfiletter word. Examine each of the letters and return the letter that comes 


first in the alphabet. 
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6.43 Each of the situations described below requires a reference to a function defined in Problem 6.41 or 6.42. 
Write an appropriate BASIC statement, or a sequence of statements, in each case. 


6.44 


(a) 
(b) 
(с) 
(4) 


(e) 


(f) 


Evaluate t = (ci + c2)(x + у)? [see Problem 6.41(a)]. 

Evaluate q = со+ cı log (x) + c> [log (x)] + cs [log (х) + ca [log (x)]* [see Problem 6.41(b)]. 

Print the value of f = (a — b + с)7°* [see Problem 6.41(c)]. 

Calculate the difference between a given number, represented by the variable X, and its closest 
integer. Express this difference as a positive quantity. [See Problem 6.42(a).] 

A numeric list T contains 61 elements. Beginning with T(1), determine how many consecutive 
elements must be multiplied together in order that the product will exceed 1000. Assume that all 
of the quantities are positive. [See Problem 6.42(5).] 

Generate 20 sets of 5 random numbers, each having a value between 2 and 5. Print the largest 
‘random number obtained in each set'of 5. [See Problem 6.42(c).] 


Each of the following problems shows a part of a BASIC program involving a function or a subroutine. 
At least one error is present in every case. Identify all errors. 


(a) 


(b) 


(c) 


(a) 


(e) 


(/) 


10 DEF FNK(J,K)=(C1*J+C2*K)/(J+K) 
60 LET T=FNK(A,B,C) 

10 DEF FNC(X,Y) 

20 IF X<Y THEN 50 

30 LET C- SOR((X-Y)/2) 

40 RETURN 

50 LET C=SQR(X/(X+Y)) 

60 RETURN 

70 FNEND 

50 GOSUB 200 

80 со ТО 230 

200 F REM SUBROUTINE А 

2301 LET Z=X+Y Subroutine 


250 RETURN 
260 FNEND 


10 DEF FNZ1(A12,B12) 


50 LET FNZ1=(A12-B12)/(At2+B12) 
60 FNEND 


10 DEF FNK(J,K)=(C1*J+C2=K)/(J+K) 

80 PRINT J,K,FNK 

100 HB 200 

200 REM SUBROUTINE A 

240 IF D<.01 THEN 150 Subroutine 


201 RETURN 
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6.45 


6.46 


6.47 


6.48 


(g) 10 DEF FNX(A,B,C) 
50 GOSUB 300 
80 FNEND 
300 REM FIRST SUBROUTINE 
330 LET Y=FNX(U,V,W) Subroutine 


350 RETURN 


Programming Problems 


Modify the program shown in Example 6.6 to minimize a given function. Use the program to obtain the 
roots of the following equations, using the method described at the end of Example 6.6. 


(а) x+cosx=1+sinx, л7/22<х<т 
(b) х°+ 3х2 = 10, 0= x <3 (see Example 4.5) 


Modify the program shown in Example 6.15 so that the function FNP is replaced by a subroutine. 


Modify the program shown in Example 6.20 so that a sequence of craps games will be simulated 
automatically, in a nonconversational manner. Include a counter that will determine the total number of 
wins and an input variable whose value will specify how many games will be simulated. 

Use the program to simulate some large number of games (e.g., 1000). Estimate the probability of 
coming out ahead when playing craps. (This value, expressed as a decimal, is equal to the number of wins 
divided by the total number of games played. If the probability exceeds .500, it favors the player; 
otherwise it favors the “house.”’) 


Modify the program shown in Example 6.26 to process a weekly payroll. Use a function rather than a 
subroutine to calculate the amount of federal tax withheld. 

The amount of federal income tax to be withheld on a weekly basis is shown in Table 6.3. These 
figures are based upon an adjusted weekly gross income equal to the weekly gross income less $35.58 for 


each exemption. 
Table 6.3 Federal Income Tax Withholding Rates 
WEEKLY Payroll Period 


(a) SINGLE person—including head of household: (b) MARRIED person— 

If the amount The amount of income tax If the amount The amount of income tax 

of wages is: to be withheld shall be: of wages is: to be withheld shall be: 

Not over $20 0 Not over $20 0 

But not of excess But not of excess 


Over— over— over— Over— over— over— 


$20 
$31 
$50 
$100 
$135 
$212 


—$31 14% —$20 $20 -$42 1496 —$20 
—$50 $1.54 plus 17% —$31 $42 —$77 $3.08 plus 17% -$42 
—$100 | $4.77 plus 20% —$50 $77 —$163 | $9.03 plus 16% —$77 
—$135 | $14.77 plus 18% —$100 —$269 | $22.79 plus 19% —$163 
—$212 | $21.07 plus 21% —$135 —$385 | $42.93 plus 21% —$269 
— $37.24 plus 24% -$212 — $67.29 plus 2596 —$385 
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Тһе state tax will be calculated as 1 percent of all gross income up to $150 а week, 12 percent of any 
additional income up to $500 and 2 percent of any excess over $500. The local tax will be computed as 1 
percent of the first $200 of gross income. Weekly earnings in excess of $200 will not be taxed at the local 


level. 


Modify the bouncing ball program in Example 6.28 to solve the following problem. A target is located a 
distance L feet from the origin (L is an input parameter). Determine by trial and error what horizontal 
velocity the ball should have so that it hits the target after the second bounce. Assume the target is a 
small circle that rests on the ground. Show the location of the target on the output graph. 


Write-a BASIC program that will generate a hard-copy graph of each of the following functions. 


(a) y=2Vx, for values of x varying from 0 to 10 

(b) y = x°, for values of x varying from —1 to +1 

(c) у= 2e 9° sin 0.51, for values of t varying from 0 to 60 (see Problem 5.48) 
In each case plot enough points so that the curve can be seen clearly. 


Write a BASIC program that will generate a picture of the American flag. Use an asterisk to denote each 
star. Represent each stripe by several lines of repeated R's or W's, depending on the color of the stripe. 


Prepare a detailed outline, a corresponding flowchart and a complete BASIC program for each of the 
problems presented below. Include functions and subroutines wherever it is practicable to do so. 


(a) Calculate the average of a set of N numbers. Carry out the calculations within a programmer- 
defined function..Use the program to process the temperature data given in Problem 5.54. 

(b) Extend the program in Problem 6.52(a) to calculate the deviation of each number from the average. 
Use the program to process the temperature data given in Problem 5.54. Can a programmer-defined 
function be used for this purpose? 

(c) Calculate the area under a curve, using the methods described in Problems 5.57(j) and 5.57(k). 
Use the program to calculate the area under the curve y = x? between the limits x = 1 and x = 4. 

(d) Another way to calculate the area under a curve is to employ the Monte Carlo method, which 
makes use of randomly generated numbers. Suppose that the curve y 7 f(x) is positive for any 
value of x between the specified lower and upper limits x = a and x = b. Let the largest value of y 
be y*. The Monte Carlo method proceeds as follows: 


(i) Begin with a counter set equal to zero. 
(ii) Generate a random number, rx, whose value lies between a and b. 
(iii) Evaluate y(r.). 
(iv) Generate a second random number, ry, whose value lies between 0 and y^ 


(v) Compare r, with y (r.). If ғ, is less than or equal to y(r.), then this point will fall under or on 
the given curve. Hence the counter is incremented by 1. 


(vi) Steps (ii) through (v) are repeated а large number of times. Each time will be called a cycle. 
(vii) When a specified number of cycles has been completed, the fraction of points which fell on or 


under the curve, F, is computed as the value of the counter divided by the total number of 
cycles. The area under the curve is then obtainéd as A — Fy*(b — a). 


Write a BASIC program to implement this strategy. Use the program to find the area under the curve 
y = e between the limits x = 0 and x = 1. Determine how many cycles are required to obtain an 
answer which is accurate to three significant figures. Compare the computer time required for this 
problem with the time required for Problem 5.57(k). 


(e) Calculate an average score for each student in a class, and then calculate a class average of the 
individual averages. [See Problems 4.48(g) through 4.48(i).] Determine the median of the in- 
dividual averages (a value which is equalled or exceeded by half of the individual averages). Use a 
function to calculate the averages and a different function to compute the median. Apply the 
program to the data given in Problem 4.48(g). Can subroutines be used rather than functions? 
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(8) 


(h) 


G) 


(j) 
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A normally distributed random variate x, with mean р and standard deviation o, can be generated 
from the formula 


N 
> ri-N/2 


i=1 


VN/12 


where r, is a uniformly distributed random number whose value lies between 0 and 1. A value of 
N = 12 is frequently selected when using this formula. The underlying basis for the formula is the 
central limit theorem, which states that a set of mean values of uniformly distributed random 
variables will be normally distributed. 

Write a BASIC program that will generate a specified number of normally distributed random 
variates with a given mean and a given standard deviation. Let the number of random variates, the 
mean and the standard deviation be input parameters. z 

Use the program to generate a histogram of a normal.distribution with ш = 2.5 and а = 1.5. 


x-uto 


Write a BASIC program that will allow a person to play a game of tic-tac-toe against the computer. 
Write the program in such a manner that the computer can be either the first or the second player. 
If the computer is to be the first player, let the first move be generated randomly. Write out the 
complete status of the game after each move. Have the computer acknowledge a win by either 
party when it occurs. 

Write a BASIC program which will simulate a game of blackjack between two players. Note that 
the computer will not be a participant in this game but will simply deal the cards to each player and 
provide each player with one or more “hits” (additional cards) when requested. 

The cards are dealt in order, first one card to each player, then a second card to each player. 
Additional hits may then be requested. 

The object of the game is to obtain 21 points, or as many points as possible without exceeding 
21 points, on each hand. A player is automatically disqualified if his or her hand exceeds 21 points. 
Face cards count 10 points, and an ace can count either 1 point or 11 points. Thus a player can 
obtain 21 points with the first two cards (blackjack!) if dealt an ace and either a 10 or a picture card. 
If the player has a low score with the first two cards, he may ask for one or more hits. 

A random number generator should be used to simulate the dealing of the cards. Be sure to 
include a provision that the same card is not dealt more than once. 

Roulette is played with a wheel containing 38 different squares along its circumference. Two of 
these squares, numbered 0 and 00, are green; 18 squares are red; and 18 are black. The red and black 
squares alternate in color and are numbered 1 through 36 in random order. 

A small marble is spun within the wheel. Eventually, the marble comes to rest in a groove beneath 
one of the squares. The game is played by betting on the outcome of each spin in any one of the 
following ways. 

1. By selecting a single red or black square, at 35-to-1 odds. (Thus, if a player were to bet 
$1.00 and win, he or she would receive a total of $36.00—the original $1.00 plus an 
additional $35.00.) 

2. By selecting a color (either red or black) at 1-to-1 odds. (Thus, if a player chose red on a 
$1.00 bet, he or she would receive $2.00 if the marble came to rest beneath any red square.) 

3. By selecting either the odd or the even numbers (excluding 0 and 00) at 1-to-1 odds. 

4. By selecting either the low 18 or the high 18 numbers at 1-to-1 odds. р 
Тһе player will automatically Іоѕе if the marble comes to rest beneath опе of (ће green squares 


(0 or 00). 
Write a conversational-style BASIC program that will simulate a roulette game. Allow the 


players to select whatever type of play they wish. Then print the outcome of each game followed by 
an appropriate message indicating whether each player has won or lost. 


Write a BASIC program that will encode or decode a line of text (a string). To encode a line of 
text, proceed as follows. 
1. Convert each character (including blank spaces) to its ASCII equivalent. 


2. Generate a positive random integer. Add this integer to the ASCII equivalent of each 
character. (The same integer will be used for the entire line of text.) 
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3. Suppose that N1 represents the lowest permissible value in the ASCII code, and N2 
represents the highest permissible value. If the number obtained in step 2 above (i.e., the 
original ASCII equivalent plus the random integer) exceeds N2, then subtract the largest 
possible multiple of N2 from this number and add the remainder to N1. Hence the encoded 
number will always fall between N1 and N2 and will therefore always represent some 
character. 


4. Print the characters that correspond to the encoded ASCII values. 
The procedure is reversed when decoding a line of text. Be certain, however, that the same random 
number is used in decoding as was used in encoding. 


Write a complete BASIC program that will simulate a game of BINGO. Print each letter-number 
combination as И is drawn. Be sure that no combination is drawn more than once. Remember that each 
of the letters B-I-N-G-O corresponds to a certain range of numbers, as indicated below. 


B: 1-15 

I: 16-30 
N: 31-45 
С: 46-60 
О: 61-75 


Chapter 7 
Vectors and Matrices 


In Chapter 5 we learned that all of the elements in an array can be referred to collectively by 
specifying а common array name. When carrying ди! array manipulations, however, it was necessary 
to work individually with each element of the array (i.e., each subscripted variable). Usually this was 
accomplished by means of a FOR-TO loop. 

Some versions of BASIC contain a collection of special statements, known as matrix statements, 
for carrying out the more common array operations. Usually a single matrix statement will be used 
for a given operation. Thus it is possible to perform an operation on all of the elements in an array 
without making use of a FOR-TO loop. We will see how this is accomplished in this chapter. 


7.1 VECTOR AND MATRIX OPERATIONS 


Vector and matrix are mathematical terms that refer to a list and a table, respectively. Thus a 
vector is a one-dimensional array, and a matrix is a two-dimensional array. Since a vector is actually a 
special kind of matrix, most of the general rules that apply to matrices are also valid for vectors. 

As before, we will use subscripted variables to represent the individual array elements. In the 
case of a matrix we will let the first subscript represent the row, and the second subscript will indicate 
the column. Thus A(3,2) will represent the element in the third row, second column of the matrix A. 
Moreover, we will refer to a matrix having m rows and n columns as an m X n matrix. (Remember 
that the size of a vector or matrix must be specified by a DIM statement if the value of a subscript 
exceeds 10.) 

The most common vector and matrix operations are addition, subtraction, scalar multiplication 
and vector multiplication. A special BASIC statement is available for each of these operations. The 
language also contains a matrix assignment statement. Each of these statements is discussed 


separately below. 
Assignment 
The matrix assignment statement is of the form 


10 MAT C=A 
This statement causes each element of A to be assigned to the corresponding element of C. 


EXAMPLE 7.1 
Suppose that A represents the following 2 x 3 matrix. 
nos р E i 
2 =6 97, 
The matrix statement 
10 MAT C=A 
will cause C to be a 2x 3 matrix whose elements are 
iie р 5 = 
ТИ 
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Subscripted variables are used to refer to the individual matrix elements. Hence C(1,1)=3, С(1,2)-5, С(1,3)=-9, 
С(2,1)-2, С(2,2)--6 and C(2,3)=7. 


- Addition 
Matrix addition is carried out by a statement of the form 
10 MAT C=A+B 


The result of this statement is that each element of C is assigned the sum of the corresponding 
elements of A and В, i.e., C(LJ)- А(1,)--В(1,7). The matrices А and B must have the same number 
of rows and the same number of columns. 


EXAMPLE 7.2 
Suppose that A and B аге 2 x 3 matrices whose elements have the following values. 
Qus t9 24009 
A= [roseo е ge] 
27-6 7 S491 
The matrix statement 
10 MAT С=А+В 


will cause C to be a 2x 3 matrix whose elements are as follows. 


.[6*2 6*2 C9*0] [5 7-9 
els (-6+5) pea pa -1 4) 


А matrix сап Бе updated with а matrix addition statement, e.g., a statement of the form 
10 MAT A=A+B 
is permissible. However multiple sums, such as 
10 MAT D=A+B+C 


are not allowed. 


Subtraction 


TThe matrix subtraction statement is very similar to the matrix addition statement except that the 
plus sign is replaced by a minus sign. Thus the statement 


10 MAT C=A-B 


will cause each element of C to be assigned the difference of the corresponding values of А and В, 
i.e., C(LJ)- A(LJ)- B(,J). The matrices А and B must have the same number of rows and the same 


number of columns. 
EXAMPLE 7.3 
Suppose that A and B are 2x 3 matrices having the same elements as in Example 7.2. The matrix statement 
10 MAT С=А-В 
will cause the following values to Бе assigned to С. 
ca Ін (5-2) Ер 3 aa 
(2+4) (-6-5) (7-1) = 96 


As with the matrix addition statement, a matrix can be updated via matrix subtraction. Thus a 
statement such as 


10 MAT A=A-B 
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is permissible. On the other hand, statements such as 
10 MAT D=A-B-C 

and 
10 MAT D=A+B-C 


are not allowed. 


Scalar Multiplication 
In scalar multiplication all of the elements in a matrix are multiplied by a given constant. This is 
accomplished in BASIC with a statement of the form 
10 MAT C=(K)*A 


where А and C are matrices and K 15 an ordinary variable. Each element of C will be obtained as 
C(LJ)- (K)«A(1J). 


EXAMPLE 7.4 


Suppose that A is the same 2 x 3 matrix given in Examples 7.1 and 7.2 and that K is a variable whose value 
is 3.5. The statement 


10 MAT C-(K)*A 
will cause the elements of C to have the following values. 


5 ^c. 17.5 | 


3 
C= 3.5) = 
eae Е 


The term contained іп parentheses need not be a single variable. Constants, subscripted 
variables, formulas and function references may also appear. The point is, this term must represent a 
single numerical quantity. The scalar term must always be enclosed in parentheses. 


EXAMPLE 7.5 


Shown below are several examples of valid scalar multiplication statements. 


10 MAT C=(100)*A 
10 MAT C=(2*X+Y)*A 
10 МАТ C=(SQR(Pt2+Q12))*A 


In these examples А and С are matrices, X, У, P and О are ordinary numeric variables, and SQR represents the 
square root library function. 
А vector can be updated with the scalar multiplication statement. Thus the statement 
10 MAT А=(10)*А 
is permissible. As with matrix addition and subtraction, however, statements such as 
10 МАТ C=(10)*A*B 
and 
10 МАТ С=(10)*А+В 
are not allowed. 
Matrix Multiplication 


Two matrices can be multiplied if the number of columns in the first matrix is the same as the 
number of rows in the second matrix. The result will be a matrix having the same number of rows as 
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the first matrix and the same number of columns as the second. Thus if A is a k x m matrix and B is 
an m X n matrix, then the matrix operation C= АжВ will generate a new matrix, C, having k rows 
and n columns. Each element of C will be obtained as 


C(LJ)=A(L1)*B(1,J)+A(L2)*B(2,J)+ - -- +A(,K)*B(K,J) 
Matrix multiplication сап be carried out in BASIC by means of a statement of the form 
10 МАТ С=А*В 


where А, В and С are matrices and А has the same number of columns аз В Ваз rows. 


EXAMPLE 7.6 
Suppose that we are given the following two matrices. 
9: $: 1 
dn ord turas 
6 28 
The matrix statement 
10 MAT C=A*B 
will result in the 2x 3 matrix 
с-| 70 30 H 
190 86 132 


where the individual elements were obtained as follows. 


C(1,1)=(1x9)+(2x8)+(3x7)+(4x6)=70 
C(1,2)=(1x5)+(2x4)+(3x3)+ (4x2)=30 
C(1,3)=(1x1)+(2x0)+(3x9)+(4x8)=60 
C(2,1)=(5x9)+(6x8)+(7x7)+(8x6)=190 
C(2,2)=(5x5)+(6x4)+(7x3)+(8x2)=86 
С(2,3)= (5х1)+(6х0)+(7х9)+(8х8)= 132 


Unlike (ће matrix statements presented earlier, a matrix cannot be updated by means of the 
matrix multiplication statement. Nor can more than two matrices appear in a matrix product. Thus 
statements of the form 


10 MAT A- A«C 

and 
10 МАТ D= А*В*С 

are not allowed. It is possible, however, to multiply a matrix by itself, i.e., to write 
10 MAT C- A*A 


provided A is a square matrix (i.e., A must have the same number of rows and columns). 


7.2 VECTOR AND MATRIX INPUT/OUTPUT 


Matrix input/output operations are carried out in much the same manner as ordinary input/out- 


put operations. BASIC provides us with three matrix IO statements—MAT READ, MAT PRINT 
and MAT INPUT. Each is discussed individually below. ? 
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MAT READ 


The purpose of the MAT READ statement is to enter values for the elements of a vector or a 
matrix. This statement is used in conjunction with one or more DATA statements (see Section 5.5). 
A typical MAT READ statement might appear as 


10 MAT READ À 


where А represents a vector ог а matrix whose dimensions have been specified. 

Execution of the MAT READ statement causes a set of values contained in a data block to be 
assigned to the appropriate elements of the vector or matrix. The assignment always begins with the 
subscript (or subscripts) equal to 1, i.e., the zeroth elements are ignored. In the case of a matrix, the 
data will be assigned on a row-by-row basis. 


EXAMPLE 7.7 
A portion of a BASIC program is shown below. 
10 DIM A(5,3) 


40 MAT READ A 


200 DATA 1,3,5,7,9,11,13,15,17,19,21,23,25,27,29 


Execution of this program will cause the following values to be assigned to the elements of A. 


А(1,1)=1 А(1,2)-3 А(1,3)-5 

А(2,1)=7 А(2,2)=9 А(2,3)=11 
А(3,1)=13 А(3,2)=15 А(3,3)=17 
А(4,1)=19 А(4,2)=21 А(4,3)=23 
А(5,1)=25 А(5,2)=27 А(5,3)=29 


Observe that the data are assigned row-by-row. 

Notice that A actually contains 24 elements, since the subscripts range from 0 to 5 and 0 to 3, respectively. 
Only 15 elements of А are assigned values, however, because the zeroth elements are ignored. 

If the DIM statement were not present, then A would automatically consist of 121 elements (each subscript 
ranging from 0 to 10). Therefore 100 values would be required in the data block. An error would result if only 15 
values were supplied, as in the above DATA statement. 


A single MAT READ statement can contain several vectors and matrices if desired. The 
successive vectors and matrices must be separated by commas. All elements of the first vector/matrix 
will be read in before any elements of the second vector/matrix, and so on. As before, the elements 
of each matrix will be assigned row-by-row. 


EXAMPLE 7.8 
A portion of a BASIC program is presented below. 


10 DIM X(2,2),¥(5),Z(2,3) 
50 MAT READ X,Y,Z 
150 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 


When the program is executed, the following values will be assigned to the elements of X, Y and Z. 


X(1,1)=1 Y(1)=5 Z(1,1)=10 
X(1,2)=2 ¥(2)=6 Z(12)-11 
X(2,1)=3 Y(3)=7 Z(1,3)=12 
X(2,2)=4 Y(4)-8 Z(2,1)=13 
Y(5-9 Z(22)-14 

Z(2,3)=15 
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Thus we see that the first four values іп the data block are assigned to X, the next five values are assigned to Y 
and the last six values to Z. Each matrix is assigned values by rows. 


MAT PRINT 
The MAT PRINT statement is used to print the elements of a vector or a matrix. А typical МАТ 
PRINT statement can be written as 


10 МАТ PRINT А 


where А represents either a vector ог а matrix. The elements of A will be printed т columnar form if 
A is a vector and in a tabular, row-by-rew form if A is a matrix. As with the MAT READ statement, 
the zeroth elements will be ignored. 

The elements of each row of a matrix will be widely separated, with a maximum of five elements 
on each printed line. Hence several lines may be required for each row. A blank line will appear 
between successive rows, thus distinguishing one row from another. 


EXAMPLE 7.9 
Consider the following BASIC program. 


10 DIM X(3,8) ,Y(&) 
20 MAT READ X,Y 

30 MAT PRINT X 

40 MAT PRINT Y 

50 DATA 1,2,5,4,5,6,7,8,9,10,11,12,15,14,15 

80 DATA 16,17,18,19,20,21,22,23,24,25,25,27,28,29, 30 
70 END 


Execution of this program will produce the following output. 


1 2 3 4 5 
6 v 8 

T 10 11 12 15 
14 15 16 

17 18 19 2o 21 
22 25 24 

25 

26 

27 

28 

29 

50 


Notice that each row of X requires two lines, since only five elements can be printed in each line. À blank line 
separates each successive row. Also, notice that Y is printed in columnar form, since it is a vector. 


Тһе spacing between successive array elements can be altered by placing a comma or a semicolon 
after the array name in the MAT PRINT statement. Vectors are handled somewhat differently than 
matrices. The rules governing the spacing of array elements are given below. 


1. . Vectors 


(a) If a vector name is followed by a comma, then the elements are printed in row form 
rather than columnar form. Wide spacing (not more than five elements per line) will be 
used. 


(b) If a vector name is followed by a semicolon, then the elements are printed in row form 
with minimum spacing between them. 


CHAP. 7] VECTORS AND MATRICES 175 


2. Matrices 
Following a matrix name with a comma will have no effect on the spacing of the output. 


If the matrix name is followed by a semicolon, however, then the matrix will be printed 
row-by-row, with minimum spacing between the elements. Successive rows will still be 


separated by a blank line. 


EXAMPLE 7.10 
Let us again consider the BASIC program presented in Example 7.9. If the MAT PRINT statements are 
changed to 


30 MAT PRINT X, 
40 MAT PRINT Y, 


then the following output will be generated when the program is executed. 


1 2 s 4 5 
6 7 8 

9 10 11 12 15 
14 15 16 

17 18 19 20 21 
22 25 24 

25 26 27 28 29 


so 


We see that the matrix X is printed in the same manner as before, but the vector Y now appears in row form. 
On the other hand, suppose we replace the commas in the MAT PRINT statement with semicolons, i.e., let 


us write 


30 MAT PRINT X; 
40 MAT PRINT Y; 


TThe output will now appear as follows. 
{AIR 55! (4 38) 6207-88 
9” 10925147722 15-214: 150416 
17 38 19 20 21 22 2 24 


25 26 27 28 29 50 
The elements within each row are now spaced much more closely. 


Several vectors and matrices can appear in the same MAT PRINT statement if desired. The 
successive entries must be separated by commas or semicolons. The appearance of the output for 
each vector or matrix will be determined by the type of punctuation mark following that vector or 


matrix. 
EXAMPLE 7.11 
The two MAT PRINT statements in Example 7.9 can be replaced by the single statement 


30 MAT PRINT Х,Ү 
When the program is executed, the output will be spaced as shown in Example 7.9. 
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On the other hand, suppose that this MAT PRINT statement is changed to 
30 МАТ PRINT Х,У, 


(note the addition of the last comma). Execution of the program will now generate а set of widely spaced output, 
with the vector elements displayed in row form as shown at the beginning of Example 7.10. 
If the commas are replaced with semicolons, i.e., 


30 MAT PRINT X;Y; 
then the output will be closely spaced, as in the second part of Example 7.10. 


Finally, it should be pointed out that the MAT PRINT statement can contain only vector and 
matrix names. Formulas, function references, etc., are not permitted. Thus a statement of the form 


100 MAT PRINT А+В,С*р,(К)*Х 


would not be allowed. 


MAT INPUT 
The MAT INPUT statement is used to enter vector elements directly from the console. A typical 
MAT INPUT statement might appear as 


10 MAT INPUT A 


where A represents a vector name. Most versions of BASIC allow only one vector to appear in a 
MAT INPUT statement. 

When the MAT INPUT statement is executed, a question mark (?) appears at the beginning of a 
new line, indicating a request for data. Further execution of the program will be halted temporarily 
while the user types in the required vector elements, separated by commas. The first data value will 
be assigned to A(1), the second to A(2), and so on (where A is the vector name). The zeroth vector 
element will be ignored. 

After the last element has been typed, the user must depress the RETURN key, thus causing the 
data to be transmitted to the computer. Execution of the program will then be resumed. 

It is important to note that any number of data values can be entered (provided, of course, that 
the number of data values does not exceed the maximum permissible number of vector elements as 
specified by a DIM statement). Hence it is possible to enter only a partial set of vector elements via 
the MAT INPUT statement. This feature accounts for the frequent use of the MAT INPUT 
statement in many BASIC programs. 


EXAMPLE 7.12 
A BASIC program contains the following two statements. 


10 DIM A(100) 


50 MAT INPUT A 


When statement number 50 is encountered during program execution, a question mark will be printed at the 
Start of a new line. Further execution of the program will temporarily be suspended. 
Suppose that the following line of data is entered in response to the question mark. 


712,-3,17,10,62,-87,49,5,39,9,-7,-22 


When the RETURN key is depressed, (һе data will Бе transmitted to (һе computer, causing the following values 
to be assigned to the vector A. 


A(1)-12 А(4)=10 А(7)=49 А(10)=9 
A(2)--3 A(5)-62 А(8)=5 А(11)=-7 
AG)=17 A(6--87 А(9)=39 А(12)--22 


Notice that the vector element А(0) and the elements A(13) through A(100) are not affected. 


РЕСЕ 
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Sometimes there are too many data values to be entered on a single line of the console. When 
this happens the data values may be entered on subsequent lines. An ampersand (&) must be used to 
indicate that a subsequent line of data will be entered. The ampersand must appear after the final 
data value in every line except the last. А new question mark will be printed at the start of each line. 


EXAMPLE 7.13 


Suppose that the following two lines of input data have been typed in response to the MAT INPUT 
statement shown in Example 7.12. 


23,6,9,12,15,18,21,24,27,304: 
233,36,39,42,45,48,51,54,57,60 


Тһе question mark at the start of the second line, indicating а request for more data, was generated Бу the 
ampersand at the end of the first line. This procedure could have been continued if necessary (i.e., an ampersand 
could have been typed at the end of the second line, generating a request for a third line of data, and so on). 

Execution of the program will be resumed after the second carriage return (following the second line of 
data). The 100-element vector А will then have the following values for its first 20 elements; А(1)=3, A(2)=6, 
А(3)=9,..., А(19)-57, A(20)=60. The remaining elements of А will be unaffected. 


It is sometimes desirable to know how many values have been entered from the console. The 
МОМ library function allows us to answer this question. Whenever the NUM function is referenced, 
it returns the number of data values entered in the most recent MAT INPUT statement. Arguments 
are not required. 


EXAMPLE 7.14 
A portion of a BASIC program is shown below. 
10 DIM A(100) 


50 МАТ МРОТ А 
60 LET А(0)-МОМ 


150 PRINT "THE LIST CONTAINS"; А(0); * VALUES" 


When the program is executed, an unspecified number of data values will be entered and assigned to the 
elements of A. Statement 60 causes the number of data values to be determined and stored in the zeroth 
element of A. Execution of statement 150 causes a message to be printed which indicates the effective size of the 


vector A. 
Suppose, for example, that A had been assigned 20 values (as in Example 7.13). Then statement 150 would 


generate the message 
THE LIST CONTAINS 20 VALUES 


since A(0) was assigned a value of 20 in statement 60. 


In some versions of BASIC the MAT INPUT statement can be used to enter matrix elements as 
well as vector elements. With a matrix, however, the number of elements to be entered must always 
be specified within the statement. (We will see how this is accomplished in Section 7.4.) Thus the 
MAT INPUT statement is less useful for entering matrix elements than for vector elements, since a 
partial set of matrix elements cannot be entered. For this reason, and because many versions of 
BASIC do not allow the MAT INPUT statement to be used at all with a matrix, we will not discuss 
this topic any further. 

The next example illustrates the use of several matrix statements, including MAT READ and 
MAT PRINT, in a complete BASIC program. We will see a complete program that makes use of the 
MAT INPUT statement in Example 7.22 of this chapter. 
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EXAMPLE 7.15 Matrix Manipulation 
Suppose that A and В are 3x 3 matrices whose elements аге assigned the following values. 


ls Bond 2 4 6 
A=] 79-11 B=| 8 10 12 
13: 15717 14 16 18 


We wish to evaluate the matrix formula 

Е=5*(А+В)*(А-В) 
This can Бе accomplished very easily Бу means of the matrix statements presented earlier in this chapter. (This 
problem can also be solved without using matrix statements, though the programming would be more 
complicated.) 
Computational Procedure 


Since the given formula cannot be evaluated with a single matrix statement, we must construct a sequence 
of simple matrix operations that will yield the desired result. This can be accomplished as follows. 


C=A+B 
D=A-B 
Е=С*р 
Е= (5)*Е 
Each operation сап Бе carried ош with а single matrix statement. 


Тве Program Outline 
Let us print out the elements of each matrix as soon as they are either read or calculated. This allows us to 
observe the outcome of each step in the overall computational procedure. Also, the results of the individual 
matrix statements will be readily apparent. 
The computation will proceed as follows. 
Read the elements of A and B. 
Print the elements of A, followed by the elements of B. 
Calculate the elements of С. 
Print the elements of C. 
Calculate the elements of D. 
Print the elements of D. 
Calculate the elements of E. 
Print the elements of E. 


© ® з сол г ш ы 


Calculate the elements of F. 


° 


Print the elements of F. 
11. Stop. 


A corresponding flowchart is shown in Fig. 7.1. 


The BASIC Program 


In Fig. 7.2 we see a complete BASIC program for carrying out the computation. Notice that several 
different matrix statements are included. Also, note that a DIM statement is included, though its presence is not 
really necessary since this program requires only 3 x 3 arrays. 

Figure 7.3 contains the output that is generated by this program. The elements of each matrix defined in the 
program are printed out in closely spaced, tabular form. We see the desired results (the calculated elements of 
the F-matrix) at the bottom of the figure. 

Finally, we again remark that the matrix statements were not essential—we could have accomplished the 
same thing by including several FOR-TO loops in our program. (A program written in this manner is shown in 
Example 5.15.) However, the use of the matrix statements simplifies the programming considerably. 


10 
20 
50 
40 
50 
80 
70 
во 
90 
100 
110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
210 


ЗТАЕТ 


Fig. 7.1 


REM EVALUATION OF THE MATRIX FORMULA F= (5) # (A+B) * (А-В) 
DIM A(3,3),B(3,3) ,C(3,3) ,D(3,3) ,E (3,3) ,F (3,3) 
MAT READ A,B 

PRINT "THE A-MATRIX IS" 

МАТ PRINT А; 

РЕТМТ "THE B-MATRIX 18:" 

МАТ PRINT В; 

МАТ С=А+В 

PRINT "THE C-MATRIX IS:" 

MAT PRINT С; 

MAT D=A-B 

PRINT "THE D-MATRIX 18:" 

MAT PRINT DJ 

МАТ E=C#D 

PRINT "THE E-MATRIX 16:" 

МАТ PRINT Ej 

МАТ F=(5)*E 

PRINT "THE F-MATRIX І8і" 

MAT PRINT Е} 

DATA 1,5,5,7,9,11,15,15,17,2,4,6,8,10,12,14,16,18 
END 


Fig. 7.2 
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THE A-MATRIX IS: 


1.355 
п КЕТ 
15 15%17 


THE B-MATRIX IS: 


2145 
8 10 12 
14 16 18 


THE C-MATRIX IS: 


S TTE 
15 19 25 
27 51 55 


THE D-MATRIX IS: 


= =u 
4-і 1 
= 


THE E-MATRIX IS: 


-21 -21 -21 
-57 -57 -57 
-93 -93 -93 


THE F-MATRIX IS: 


-105 -105 -105 
-285 -285 -285 
-465 -465 -465 


Fig. 7.3 


7.3 SPECIAL MATRICES 


When carrying out matrix operations, we must sometimes make use of certain special matrices, 
such as the identity matrix, the transpose of a matrix or the inverse of а matrix. BASIC contains a 
number of matrix statements that allow these special matrices to be formed. Let us consider each of 
these statements individually. 
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MAT ZER 


The MAT ZER statement is used to assign 0s to the elements of a given matrix. À typical MAT 
ZER statement might appear as 


10 MAT A=ZER 


where A represents a matrix whose dimensions have been specified. 


MAT CON 


The purpose of this statement is to assign 1s to the elements of a given matrix. A MAT CON 
statement might typically be written as 


10 MAT B=CON 


where B represents a matrix whose dimensions have been specified. 


MAT IDN 


This statement causes 05 to be assigned to all of the elements of a square matrix except those on 
the principal diagonal (і.е., the diagonal running from upper left to lower right), where 1s will be 
assigned. A matrix whose elements are assigned these values is known as an identity matrix, 

The MAT IDN statement might typically be written as 


10 MAT C=IDN 


where C represents a square matrix whose dimensions have been specified. (Note that C must have 
the same number of rows and columns if it is to be a square matrix.) 

The identity matrix has the following important characteristic: If a square matrix D is multiplied 
by the identity matrix C, then the product will be simply the given matrix D. In other words, 


C*D=D*C=D 


(provided C and D conform to the rules of matrix multiplication). Hence we see that matrix 
multiplication involving the identity matrix is analogous to ordinary multiplication where one of the 
factors is the constant 1. 


EXAMPLE 7.16. 
A portion of a BASIC program is shown below. 
10 DIM A(2,3),B(4,2),C(3,3) 
70 MAT A=ZER 


80 MAT B=CON 
90 MAT C=IDN 


Execution of this program will cause the matrices A, B and C to be defined as follows. 
1 


° 1 
a=[ 44) elie с-|0 
0 0 0 1 
0 
1 


m m 


MAT TRN 


The MAT TRN statement causes the rows and columns of a given matrix to be transposed (i.e., 
interchanged). The statement might appear as 


10 MAT B=TRN(A) 
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Thus if À is an m X n matrix, then B will be an n X m matrix whose elements are determined as 


B(LJ)= AG.) 
The matrix B is called the transpose of А. 


EXAMPLE 7.17 
Consider a BASIC program that contains the following statements 


10 DIM A(2,3),B(3,2) 
20 MAT READ A 


50 MAT B=TRN(A) 
80 DATA 1,3,5,7,9,11 


Statement number 20 causes the elements of A to be assigned the values shown below. 
Же р 3 a 
91 


Statement number 50 will therefore assign the following values to the elements of B. 


1-97 
В-|3 9 
3 И 


Notice that В has three rows and two columns, whereas А has two rows and three columns. 


MAT INV 


The inverse of a square matrix is itself a Square matrix having the following important property: 
The product of a matrix and its inverse is equal to the identity matrix. In other words, if A is a square 
matrix and B is its inverse, then 


A*B-B*A-C 


where C is the identity matrix. A matrix must be square for its inverse to be defined. For some 
Square matrices, however, it is not possible to calculate an inverse. Thus an inverse matrix may or 
may not exist for a given square matrix. 

A matrix inverse may be calculated (if it exists) by means of the MAT INV statement. This 
statement might appear as 


10 MAT B-INV(A) 


where A and B are square matrices whose dimensions have been established. 

Once the inverse of a matrix has been determined, we may obtain the determinant of the original 
matrix by means of the DET library function. This function returns a single numerical value and does 
not require an argument. 

Among other things the DET function may be used to determine whether a given matrix has an 
inverse, since the determinant will be zero if the inverse does not exist. Remember, however, that the 
DET function can only be referenced after a MAT INV statement. If the DET function returns a 
value of zero for a given matrix, then the inverse determined by the preceding MAT INV statement 
will not be meaningful. Moreover, the computation of both the inverse and the determinant may be 
inaccurate under certain conditions, e.g., if the original matrix is large (many rows and columns) or if 

it is nearly singular (the true value of its determinant is close to zero). 


“А _ ns 
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EXAMPLE 7.18 Matrix Inversion 


Shown below is a simple BASIC program that computes the inverse of a matrix, the determinant of the 
matrix and the product of the matrix and its inverse. 


10 DIM A(3,3) ,B(3,3) ,C(3,3) 
20 MAT READ A 

50 МАТ B=INV(A) 

40 МАТ C=A*B 

50 МАТ PRINT А,В,С 

60 РКІМТ "DETERMINANT=";DET 
70 DATA 5,5,1,5,7,4,1,4,9 


80 END 
Ехесшіоп of this program should result іп (һе following values for the elements of A, B and C: 
5 8 1 0.274854 -0.134503 0.0292398 100 
Ағ|377 4 B =| -0.134503 0.25731 -0.0994152 C= 0 10 
149 0.0292398 -0.0994152 0.152047 001 


Also, the determinant of А should equal 171. 
Тһе actual output produced by this program is shown below. 


5 s 1 

s 7 4 

1 4 g 

0.274854 -0.134503 2. 92398E-2 
70.134503 0.25731 -9.94152Е-2 


2.92398E-2 -9. 74152Е-2 0.152047 


1. B.38190E-9 5.72529Е-9 
5. 58794Е-9 1. 7.45058E-9 
о 7.45058E-9 1. 


DETERMINANT= 171 


Notice that some of the elements of C are only approximately correct, owing to numerical errors that occur in the 
calculation of C. These errors result when we compute the difference between numbers that are very nearly equal. 


Solution of Simultaneous Equations 


The MAT INV statement allows us to solve a system of simultaneous, linear algebraic equations 
very easily. To understand how the method works, we must utilize the properties of both the inverse 
and the identity matrices. Suppose, for example, that we are given the system of n equations 


сих t Ср + `+ eux, = d, 
Саха + сах, + °° * + сух, = d; 


CX + 5+ ` ` ` + сих, = d, 


where the c’s and d’s represent known values and the x’s are the unknown quantities. 
We can write the given equations in matrix form as follows. 


С*Х=р 
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where C is a matrix containing the values of the coefficients, that is, 


Сп Cp t5 Сы 

сл УБ с, 
с- 2 

Са С Cnn 


Let us multiply our given matrix equation by E, where E represents the inverse of C. Then we 
have 


Е*С*Х=Е*р 


However, the matrix product Е*С is simply the identity matrix, which we will call I. Therefore we 
can write 


IeX=E*D 
Since I*X=X, our matrix equation simplifies to 
X-E«D 


Which is the desired result. 


EXAMPLE 7.19 Simultaneous Equations 


Suppose we are given the following system of five equations and five unknowns. 
11xi + 3x2 + x+ 2xs=51 


4x2 + 2x3 + xs=15 
3n*2x 7x9 x, = 15 
4х1 + 453+ 104+ х5 = 20 


2х1+5х2+ x3+ Зх.+ 13х5- 92 
We wish to determine the values for the unknowns хі, X2, Хз, X4 and xs. 
Computational Procedure 
Let us rewrite the equations in matrix form as 
C«X-D 


where 
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мезо 2 51 

O ел ПЕ | 15 

(91-3 2,2 ш enm D=| 15 
40410 1 20 
2:51, Sp 43 92 


and X will contain the values for xi, x2, хз, x4 and xs. We can obtain these values simply by calculating the 
matrix product 


X=E*D 


where E is the inverse of C. 


Once we have determined the values for x; through xs, we can check the accuracy of our solution by 
calculating the product 


F=C*X 


If the elements of X have been determined correctly, then the vector F will be the same as the specified vector 
D. Any differences in magnitude between the elements of F and the corresponding elements of D therefore 
provide a measure of the errors involved in calculating X. 


The Program Outline 


Тһе computation сап be carried out as follows. 


Read the elements of C and D. 

Print the elements of C and D. 

Calculate E (the inverse of C). 

Determine X by forming the matrix product E*D. 
Print the elements of X. 

Determine F by forming the product C*X. 
Calculate the error vector G=D-F. 

Print the elements of G. 

Stop. 


ong hs ppp 


A corresponding flowchart is shown in Fig. 7.4. 


START 


STOP 
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Тһе BASIC Program 


A complete BASIC Program is shown in Fig. 7.5. The structure of the Program is very straightforward, since 
branches and loops are not Tequired. This simplicity results from the use of the matrix statements, which free the 
programmer from considering the logical details of matrix manipulation. 


10 REM SOLUTION OF SIMULTANEOUS LINEAR ALGEBRAIC EQUATIONS 
20 DIM C(5,5) ,0(5),Е(5,5),Ғ(5),8(5),Х(%) 
30 MAT READ C,D 

40 PRINT "COEFFICIENT MATRIX:" 

SO MAT PRINT C 

60 PRINT "RIGHT HAND SIDE: " 

70 MAT PRINT D, 

ВО МАТ E=INV(C) 

90 МАТ Х-Ежр 

100 PRINT "SOLUTION VECTOR: " 

110 MAT PRINT x, 

120 MAT F=C#x 

130 MAT G=D-F 

140 PRINT "ERROR VECTOR: " 

150 МАТ PRINT G, 


160 DATA 11,5,0,1,2,0,4,2,0,1,5,2,7,1,0 
E 170 DATA 4,0,4,10,1,2,5,1,5,15,51,15,15,20,92 
180 END 
Fig. 7.5 


In Fig. 7.6 we see the output that is generated by the Program, providing us with a solution to our System of 
five equations in five unknowns. Our desired solution is approximately x; = 3.0, x, = 2.2, хз = 0.21, x+ = 0.15 and 
xs = 5.7. Notice also that the elements of the error vector, G, are all smaller (in magnitude) than 1075. This 
assures us that the solution is reasonably accurate. 


COEFFICIENT MATRIX: 


11 $ 0 1 2 

o 4 2 о 1 

s 2 7 1 o 

4 о 4 10 1 

2 5 1 s 15 
RIGHT HAND SIDE: 

51 15 15 „20 92 
SOLUTION VECTOR: 

2.97917 2.2156 0.211284 0.152317 5.71503 


ERROR VECTOR: 


-7-55674Е-7 —2.38419E-7 -4.74857Е-7 -7.18255E-7  -1.90735E-& 
Fig. 7.6 
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7.4 CHANGING DIMENSIONS 


We have already seen that the MAT INPUT statement allows us to enter an unspecified number 
of vector elements from the console, thus providing us with a variable dimension feature. In addition, 
several of the matrix statements allow us to alter the dimensions of an array during program 
execution. In fact we can, if we wish, change the effective size of an array at different places within a 
program. This capability can be used to extend the generality of many BASIC programs that involve 


vectors and matrices. 
The matrix statements that permit an array to be redimensioned are MAT READ, MAT ZER, 


MAT CON and MAT IDN. (Note that the MAT PRINT statement is not included.) This feature is 
implemented by enclosing the effective dimensions in parentheses, following the array name. In the 
case of a matrix the dimensions must be separated by a comma. 


EXAMPLE 7.20 
A BASIC program contains the statements 


10 DIM A(24,24),B(24,24) 


50 МАТ A-IDN(20,20) 

60 МАТ B=CON(8,12) 
When the program is executed, а total of 625 elements (including the zeroth row and the zeroth column) will be 
reserved for each of the matrices A and B. Statement 50, however, will define А to be a 20 x 20 identity matrix, 
and statement 60 will establish B as ап 8 x 12 matrix each of whose elements has a value of 1. 


Either constants or variables can be used to represent the effective dimensions of an array. 
However, the dimensions must be expressed as positive integer values, and they cannot exceed the 
maximum array sizes specified in a DIM statement. (If a DIM statement is not present, then each 
effective dimension cannot exceed 10.) 


EXAMPLE 7.21 
A portion of a BASIC program is shown below. 


10 DIM P(35),Q(50,50),R(50,50) 
50 INPUT M,N 


80 MAT READ P(M),Q(N,N) 
90 MAT R=INV(Q) 


200 DATA... 


Statement 50 will cause values of M and N (the effective array sizes) to be entered from the console. Any 
positive integer values can be entered, provided they do not exceed 35 and 50, respectively. 

When statement 80 is encountered, the first M values in the data block will be assigned to the elements of P, 
and the next N x N (i.e., the next N12) values will be assigned to the elements of Q. In statement 90 the matrix R 
will implicitly be redimensioned as ап NXN matrix, since the inverse of a matrix must have the same 
dimensionality as the given matrix. 

Finally, statement 200 must be present in order to define the data block (there may actually be several 
DATA statements). Notice that the data block must contain at least М72--М data values (extra data values will 
be ignored). Also, note that a given value in the data block may be assigned to an element of P, an element of 


Q, or it may not be read at all—depending on the values assigned to M and N. 


In the following example we will see that the generality of a BASIC program can be enhanced 
considerably by making use of the variable dimension feature. 
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EXAMPLE 7.22 Least Squares Curve Fitting (Playing the Stock Market) 


In this example we will write a BASIC program for fitting a curve to a set of data using the method of least 
squares. We will then apply this program to the problem of fitting an appropriate “trend curve" to the set of 
earnings data shown in Table 7.1 for a fictitious company known as Federated Mousetraps, Incorporated. Once 
we have obtained such a “trend curve," we can estimate what the per-share earnings will be at some future time, 
say in 1988. Based upon some average price-to-earnings ratio, we can then estimate what the price of the stock 
wil! be in 1988, using the formula 


P-R-E 
where P - estimated price of one share of stock in 1988 
R = average price-to-earnings ratio 
E = estimated earnings, dollars per share, in 1988 
This information might be used as a guide in determining whether or not to buy stock in the company at the 
current price. 


Table 7.1 Yearly Earnings per 
Share of Federated Mousetraps, Inc. 


Earnings, $/Share 


The Least Squares Technique 
The method of least squares is a common technique for fitting a curve 
у= Хх) 


to a set of data points (ys, xi), (y2, х2),..., (ум, хм). The method is based upon the concept of minimizing the 
sum of the square errors, 


еке tey 


where e; is the ith error. That is, for a given x; e; is the difference between the data point y; 


БЕЛ d 1 
у = f(xi) which is read from the fitted curve. (See Fig. 7.7.) EUM d 
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Z, x 


Fig. 7.7 


The method is commonly applied to power functions, exponential functions and to polynomials. In each 
case the method requires solving a set of simultaneous, linear algebraic equations, where the unknown quantities 
are the constants in the equation for the curve. 

For example, suppose we wish to pass the power function 

утах 


through а set of М data points. To do this we must solve the following two equations for a and b: 
M M 
M log a+ [> log x} = У log у 
ізі i=] 


P log x} loga+ {> (log xy) = 5 (log x,)(log у) 


ізі 
where X indicates summation. (For instance, ХМ, log x, = log xı + log xa + : * * + log xw.) Notice that these are 
linear algebraic equations in terms of the unknowns log а and b. Once loga has been determined, it is, of 
course, very simple to obtain the constant a. 
Now suppose that we wish to pass the exponential curve 
у = ае 
through а set of М data points. The equations to Бе solved аге 


M 


м 
М loga + [> x}b= > log yi 
i=1 


ізі 


(x xi} tog a+ {> xt}o= Salen 


ізі i=1 ізі 


Again we solve two simultaneous, linear algebraic equations for log а and b. 
If the curve is the polynomial 


у = ci + сх + сзх? + ° ° F oux" 


then we determine the coefficients ci, C2, Сз,..., Cn+1 by solving the system of equations 
M 


Mcr+ (S ajat {> niot: (е X» 


іті ізі ізі 


(x «| + {5 xta [> «ез MESE b» х") = 5 ху 


ігі i-i і=1 ігі 


Б [Sor je [Sarar аа = E 


ізі ізі i=1 
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Since each of the above cases involves the solution of simultaneous, linear algebraic equations, we will 
incorporate several matrix statements in our program, in a manner similar to Example 7.19. 


Design of the Program 

In designing the program we will include a number of features which will extend its generality. For example, 
we will include a provision for fitting either the power function or the exponential curve discussed earlier, or a 
polynomial of up to ninth degree (10 terms). We will allow for as many as 100 pairs of data, and we will convert 
the values of xi and yi to log x; and log y, internally if these logarithms should be required. Since the number of 
data points to be entered and the type of curve to be fit will vary from one problem to another, we will make use 
of the variable dimension feature when writing the program. 

The coefficients in the system of linear equations will be printed as a part of the output. This information 
may be helpful when debugging the program. Also included in the output will be the equation of the fitted 
curve, showing the numerical values obtained for the various constants; a list of the input values x; and y,, with 
the corresponding calculated values y(x;) (this will facilitate plotting the input data and the fitted curve); and the 
numerical value of the sum of the square errors. This latter quantity is useful in comparing the success of fitting 
several different curves to the same set of data (the smaller the sum, the better the fit). 


The Program Outline 


In order to outline the program let us define the following variables and arrays. 


X = 100-element vector containing the input values x; 
Y = 100-element vector containing the input values у, 
A = a 10x 10 matrix containing the coefficients of the unknown constants in the system of linear 
equations 
В = the inverse of A s. 
C= a 10-element vector containing the unknown constants in the system of linear equations 
D = a 10-element vector containing the right-hand terms in the system of linear equations 
М = input quantity which indicates the number of pairs of data 
N = input quantity indicating the curve to be used: 
N = 0 indicates the power function y = ax° 
N= 1 indicates the exponential function y = ае” 
N 
N=2,3,...,10 indicates the polynomial y = У) сх"! 
ізі 
(For example, N = 3 indicates the second-degree polynomial у = cı + cox + c3x?.) 
N1 = number of simultaneous, linear algebraic equations 
N1=2if N-0orN-1 
N1=N if N=2,3,...,10 
The outline of the main program proceeds as follows: 
1. Read the input data: 
(a) Read a value for N, thus specifying the particular curve to be fit. 
(b) Read M values for y, followed by M values for x;. 
2. Calculate log x; and log y, if N = 0, or calculate log y; if N= 1, for i=1,2,...,M. 


3. Calculate the elements of the arrays A and D, using the appropriate formulas for the particular curve 
selected. 


4. Print out the elements of A and D. 
Solve the simultaneous, linear algebraic equations. 


Print out the values obtained for the unknown constants (the elements of the array C), in a form that 
shows the equation of the curve selected. 


7. Calculate у(х) for i= 1,2,...,M. 


START 


CALCULATE 
LOG X(D), 
LOG Y(D 


CALCULATE 
LOG Y(D) 


CALCULATE 
ELEMENTS ОЕ 


SOLVE 
LINEAR 
EQUATIONS 


PRINT 
CONSTANTS 
(©) 


2-22 ——— دس 


Fig. 7.8 


191 


CALCULATE 
X(D,Y(D 


(Y(D-Y): 


PRINT 
X(D,Y(D,Y 


192 VECTORS AND MATRICES [CHAP. 7 


8. Calculate the sum of the square errors 
elt elt +--+ eh 


9. Print ош x;, y; and y(x;) for i = 1,2,...,M, and then print out the sum of the square errors. (Note that 
if N = 0 or N = 1, it will be necessary to convert log y; and perhaps log x; back to y, and xi.) 


10. Stop. 
Figure 7.8 shows a flowchart of the computational procedure. 


The BASIC Program 

The complete BASIC program is shown in Fig. 7.9. This program is somewhat lengthy and should therefore 
be examined carefully. A number of REM statements are included in order to break the program up into major 
logical blocks. 

Notice that several matrix statements, as well as the NUM function, are included in the program (see lines 
70, 75, 90, 95, 200, 205, 370 and 375). The MAT INPUT statements allow for a variable number of data points, 
and the MAT ZER statements cause the A-matrix and the D-vector to be redimensioned each time the program 
is executed. In statements 370 and 375 the B-matrix and the C-vector are implicitly redimensioned to correspond 
to the A-matrix and the D-vector, respectively. 

The solution of the simultaneous equations is greatly simplified by the use of matrix statements (see 
statements 370 and 375). On the other hand, several FOR-TO loops are required in the program, despite the 
availability of the matrix statements. There are several reasons for this. First, the elements of A are generated 
internally (lines 185 through 285). Also, under certain conditions it is necessary to convert the input data into 
logarithmic form and vice versa (lines 135-145, 155-165, 510-520 and 530-540). Finally, the format in which the 
results are printed requires the presence of several FOR-TO loops (lines 320-350, 455-480 and 560-625) in order 
to output the data. 


Application of the Program 

Returning to our stock market problem, let us fit a curve to the earnings vs. time data for Federated 
Mousetraps using a power function, an exponential curve, a second-degree polynomial (N = 3) and a fourth- 
degree polynomial (N = 5). Before proceeding with the calculation, however, we remark that in curve-fitting 
calculations it is desirable to prevent the x-values and the y-values from being too far apart in magnitude. 
Therefore we will subtract the number 1960 from each of the x values. Thus, for example, the year 1967 will be 
represented as simply 7, and so on. 

The results of the calculations are shown іп Figs. 7.10(a) through 7.10(d) for М = 0, 1, 3 and 5 respectively. 
By examining the sum of the square errors in each case, we see that the best fit was obtained using the 
fourth-degree polynomial (N = 5), yielding the equation 


y = -0.727783 + 0.330811x - 0.047882x? + 0.002563x? — 0.000036x* 


(Note that the second-degree polynomial resulted in a fit that is almost as good.) On the other hand, the worst fit 
was obtained using the exponential curve (N = 1), resulting in the expression 


y = 0.000853 e251 


Each of these equations is plotted with the original data in Fig. 7.11. 

In order to estimate the per-share earnings for the year 1988, we let 1988 — 1960 = 28. Substituting this value 
into the fourth-degree polynomial yields a value of y = 4.92. Thus we see that the estimated earnings per share 
of Federated Mousetraps, Inc., will be $4.92 for the year 1988. 

Based upon an average price-to-earnings ratio of 30 (which is not unusual for a company growing this fast), 
we estimate that one share of Federated Mousetraps should sell for about $147.60 in 1988. If we were to buy the 
stock in 1984 at a price of $75.00 (corresponding to a price-to-earnings ratio of 24), it would be reasonable to 
expect almost to double our money by 1988. This is equivalent to a yield of about 19 percent a year, in terms of 
simple interest, compounded annually. 


All of the examples in this chapter have been concerned with arrays whose elements represent 
numeric values. The reader is reminded that BASIC will also accept string arrays and that the matrix 
statements can also be used to carry out legitimate string array operations. Remember, however, that 
some versions of BASIC do not support matrix statements. This is especially true of the newer 
versions of BASIC which are available for microcomputers. 
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REM LEAST SQUARES CURVE FITTING 

DIM X(100),Y(100) 

PRINT "INPUT N-O FOR А POWER FUNCTION, N-1 FOR AN EXPONENTIAL "; 
PRINT "FUNCTION." 

PRINT “FOR А POLYNOMIAL, LET М EQUAL THE NUMBER OF TERMS IN "; 
PRINT “THE POLYNOMIAL." 

PRINT "N="; 

INPUT N 


REM ENTER DATA POINTS 


PRINT 

PRINT "ENTER THE Y-VALUES" 
MAT INPUT Y 

LET M=NUM 

PRINT 

PRINT "ENTER THE X-VALUES" 
MAT INPUT X 

IF NUM=M THEN 115 

PRINT "THE NUMBER OF Y-VALUES DOES NOT CORRESPOND TO THE "; 
PRINT "NUMBER OF X-VALUES" 
STOP 


REM CALCULATE LOGARITHMS OF X- AND Y-VALUES IF NECESSARY 


IF N>=2 THEN 170 
FOR I=1 TOM 
LET Y(I)=LOG(Y(I)) 
NEXT I 
IF N=1 THEN 170 
FOR I=1 TOM 
LET X(I)=LOG(X(I)) 


NEXT I 

REM CALCULATE ELEMENTS OF A-MATRIX AND D-VECTOR 
LET N1=N 

IF Ni>=2 THEN 200 

LET N1=2 


MAT A=ZER(N1,N1) 
MAT D=ZER(N1) 
FOR Ізі ТО Мі 
FOR 1-1 ТО М1 
IF I+J>2 THEN 235 
LET A(I,J)=M 
GOTO 250 
FOR K=1 ТОМ 
LET A(I,J)=A(I,J)+X(K)“(I+J-2) 
NEXT K 
NEXT J 
FOR K=1 TO M - 
IF 1>1 THEN 275 
LET D(I)=D(I)+Y(K) 
GOTO 280 
LET D(I)=D(I)+Y(K)#X(K)%(I-1) 
NEXT K 
NEXT I 


REM PRINT SIMULTANEDUS LINEAR EQUATIONS 


Fig. 7.9 (Program continues on next page) 


305 PRINT Е 
510 PRINT “COEFFICIENTS IN SYSTEM OF LINEAR EQUATIONS" 
315 PRINT ; 

320 FOR Ізі TO N1 

325 FOR J=1 TO Мі 

330 PRINT A(I,1); 

335 NEXT J 

340 PRINT D(I) 

345 PRINT 

350 NEXT I 

355 

560 REM SOLVE SIMULTANEQUS LINEAR EQUATIONS 

345 

370 MAT B-INV(A) 

375 MAT С-Вжр 

380 

385 REM PRINT EQUATION FOR CURVE FIT 

390 ' 

395 IF №1 THEN 450 

400 LET СізЕХР(С(1)) 

405 IF N=1 ТНЕМ 420 

410 PRINT "POWER FUNCTION: Y="gC1; "#X^"; C(2) 

415 GOTO 490 c 
420 PRINT "EXPONENTIAL FUNCTION: у=";С1; "EXP (5C C2) g "жо" 
425 GOTO 490 

430 IF С(2)>=0 THEN 445 

435 PRINT "POLYNOMIAL FUNCTION: Y=";jC(1);C(2) "X"; 

440 GOTO 450 

445 PRINT "POLYNOMIAL FUNCTION: Ye"gC (1) "4C (2); "eX" 
450 IF N-2 THEN 485 

455 FOR I=3 TO N 

460 IF C(I)>=O THEN 475 

465 PRINT C(I); "*X^"; 1-13 

470 GOTO 480 

475 PRINT "+" С) р "*X^"5 I-1; 

480 NEXT I 

485 PRINT 

490 

495 REM PRINT INPUT VALUES OF X AND Y AND CALCULATED VALUES OF Y 
500 

505 IF N»-2 THEN 545 

510 FOR 1=1 TO M 

515 LET Y(I)=EXP(Y(I)) 

520 NEXT I 

525 IF N=1 THEN 545 

550 FOR I=1 TD M 

555 LET X(I)=EXP(X(I)) 

540 NEXT I 

545 PRINT 

SSO PRINT ТАВ (2); "Х";ТАВ(16) "Y (ACTUAL) "; ТАВ (50) ; "Y. (CALCULATED) " 
555 LET 8-0 у 
560 FOR 1=1 TO M 

565 IF N>=2 THEN 595 

570 IF N=1 THEN 585 

575 LET У1=С1%Х (1)^С (2) 

580 GOTO 615 

585 LET Yi1-Ci«*EXP(C(2)*X(I)) 

590 GOTO 615 

595 LET Y1=C(1) 

600 FOR J-2 ТО N 

605 LET Yi-Yi14C(J) *X(OD^(-1) 

610 NEXT J 

615 LET S=S+(Y(I)-Y1)22 

620 PRINT X(I),Y(I),Y1 

625 NEXT I 

650 PRINT 

655 PRINT "SUM ОЕ SQUARE ERRORS-";S 

640 END 


Fig. 7.9 (continued) 
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1967 1970 1973 1976 1979 1982 1985 e 


Review Questions 


7.1 What is a vector? A matrix? 


7.2 Is it necessary to use matrix statements to carry out vector and matrix operations? What advantage is 
there in the use of matrix statements? 


73 What is the difference between scalar multiplication and matrix multiplication? What conditions must be 
satisfied in order to multiply one matrix by another? 


7.4 Summarize the rules for writing each of the following matrix statements. 


(a) Assignment (c) Subtraction (e) Matrix multiplication 
(b) Addition (d) Scalar multiplication 


7.5 What is the purpose of the MAT READ statement? What other BASIC statement must be used in 
conjunction with MAT READ? 


7.6 Summarize the rules for writing a MAT READ statement. 


7.7 Suppose a MAT READ statement contains the name of one matrix. In what order will the values in the 
data block be assigned to the matrix elements? 


7.8 How are the zeroth elements of a vector or matrix affected by а MAT READ statement? 


7.9 Suppose a single MAT READ statement contains several array names. In what order will the values in 
the data block be assigned to the array elements? 


7.40 What is the purpose of the MAT PRINT statement? Summarize the rules for writing this statement. 
7.11 Suppose a MAT PRINT statement contains the name of one matrix. In what order will the matrix 


elements be printed? How can we distinguish one row of the matrix from another? How can the spacing 
of the matrix elements be altered? 
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Suppose a MAT PRINT statement contains the name of a vector. How can the vector elements be 
printed out in columnar form? In row form? How can the spacing of the vector elements be altered? 


How are the zeroth elements of a vector or matrix affected by a MAT PRINT statement? 

Suppose a single MAT PRINT statement contains several array names. In what order will the array 
elements be printed? How can the elements of one array be distinguished from the elements of another 
array? 


Can formulas and function references be included in a MAT PRINT statement? 


What is the purpose of the MAT INPUT statement? How does it differ from the MAT READ 
statement? 


Summarize the rules for writing a MAT INPUT statement. 


What happens when a MAT INPUT statement is executed? How are the input values transmitted to the 
computer? 


How is the zeroth element of a vector affected by a MAT INPUT statement? 
How can two or more lines of input data be read with a single MAT INPUT statement? 


How can we determine the number of vector elements that have been entered by a MAT INPUT statement? 
Suggest a convenient place to store this number. 


Can a MAT INPUT statement be used to enter matrix elements as well as vector elements? Are there 
any restrictions with matrices that are not present with vectors? 


What is an identity matrix? 
What is meant by the transpose of a matrix? 
What is meant by the inverse of a matrix? Does an inverse always exist? Explain. 


What relationship must exist between the number of rows and the number of columns of an identity 
matrix? An inverse matrix? 


What relationship must exist between the number of rows and columns of a given matrix and its 
transpose? Can a vector have a transpose? 


What is the result of multiplying a matrix by an identity matrix? 
What is the result of multiplying a matrix by its inverse? 


State the purpose and summarize the rules for writing each of the following matrix statements. 


(а) MAT ZER 
(b) MAT CON 
(c) MAT IDN 
(d) MAT TRN 
(e) MAT INV 


What is the purpose of the DET library function? For what kinds of matrices can the DET function be 
used? What matrix statement must always precede a reference to the DET function? 
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7.34 


7.35 


7.36 


7.37 


How can we determine whether ог по! а particular square matrix has ап inverse? 


How can we solve a system of simultaneous, linear algebraic equations using matrix statements? Is there a 
simple procedure to check the accuracy of the solution? 


Which matrix statements allow an array to be redimensioned during program execution? How is the 
redimensioning accomplished? 


Compare the concept of array redimensioning discussed in Section 7.4 with the variable dimension 
feature included in the MAT INPUT statement. 


What operations can be performed on string arrays? Which matrix statements can be used for the 
manipulation of string arrays? 


Solved Problems 


Several BASIC statements, or groups of statements, are shown below. Some are written 
incorrectly. Identify all errors. 


(a) 10 DIM P(12,20),Q(12,20),R(12,20) 


50 MAT P=(.5)*(Q+R) 


Matrix formulas cannot appear in a matrix statement. 
(b) 10 DIM P(12,20),Q(12,20) 
50 MAT P=((N+1)/2)*Q 


Correct, provided N is an ordinary (scalar) variable. 


(c) 30 MAT INPUT A,B,C 


Most versions of BASIC allow only one vector name to appear in a MAT INPUT statement. 


(d) 30 MAT INPUT N$ 


Correct, provided N$ is a string vector. 


(e) 200 MAT PRINT A,B,A+B,A-B 


Formulas cannot appear in a MAT PRINT statement. 


(f) 10 DIM A(10,20),B(20,10) 


30 MAT READ A 
40 MAT B- TRN(A) 


Correct. 


(8) 


VECTORS AND MATRICES ІСНАР. 7 
10 DIM P(3,6),Q(8,10),R(5,5) 


50 МАТ R=P+Q 
Matrices cannot Бе added И their dimensions do по! correspond. 


(h) 10 DIM C(6,8),D(6,8),V(12) 


60 MAT D=INV(C) 


90 MAT V=IDN 
It is not possible to calculate an inverse for a nonsquare matrix. Also, a vector cannot appear 
in a MAT IDN statement. 


7.38 Write опе or more BASIC statements for each of the situations described below. 


(a) Evaluate the formula 


(b) 


Y=XT*A*X 
where A is a 10 x 10 matrix, X is a 10-element vector (disregarding the zeroth row), and 
XT is the transpose of X. What will be the dimensionality of Y? 


100 MAT Z=TRN(X) 
110 МАТ B=Z*A 
120 МАТ У=В*Х 

or 
100 MAT Z=TRN(X) 
110 MAT C=A*X 
120 MAT Y-Z«C 


Y will represent a single value (i.e., Y will be an ordinary variable, not an array). 


Evaluate the formula 
T-(N)*F^*G-H 


where F, G and H are 50 x 50 matrices, М is an ordinary (scalar) variable and ЕТ! 
represents the inverse of F. What will be the dimensionality of T? 


100 MAT A-INV(F) 
110 MAT B=A+G 
120 MAT C=(N)*B 
130 MAT Т=С+Н 


T will be 50 50 matrix. 


Calculate the difference between I and A^'*A, where А is a 10х10 matrix, A^! 
represents the inverse of А and I is a 10x 10 identity matrix. (Note that this difference 
should, in principle, be a matrix whose elements are zero. In reality the matrix elements 
may be diflerent from zero because of numerical errors.) 


100 MAT B=INV(A) 
110 MAT C=B*A 
120 MAT I=IDN 
130 MAT D-I-C 
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(d) Print the answer obtained for part (c) above in matrix form, with the elements spaced as 
closely as possible. 


140 MAT PRINT D; 


(e) Suppose that A and В are 10x 10 matrices whose elements are given in a data block. 
Read the elements of A, one row at a time, followed by the elements of B, one column 
at a time. 


10 MAT READ A,C 
20 МАТ B- TRN(C) 


(Note that A and C are each read row-by-row.) 


(f) Suppose that X and Y are vectors whose elements are to be assigned values from the 
console. The number of values entered for X and Y will be stored in X(0) and Y(0), 
respectively. 


10 MAT INPUT X 
20 LET Х(0)= МОМ 
30 MAT INPUT Y 
40 LET Ү(0)= МОМ 


(g) Suppose that P is a 5x 12 matrix, T is a 6 X 6 matrix and X is a 10-element vector. Print the 
values of P, T and X, with X appearing in row form. 


200 MAT PRINT Р,Т,Х, 


(h) Repeat part (g) above, with the array elements spaced as closely as possible. 
200 MAT PRINT P;T;X; 


Supplementary Problems 


7.39 Several BASIC statements, or groups of statements, are shown below. Some are written incorrectly. 
Identify all errors. 


(a) 10 DIM L$(100),M$(100) 


50 MAT INPUT M$ 
60 MAT L$-M$ 


(b) 35 MAT Q=(A+B)*P 
where A, B, P and Q are 10 x 10 matrices. 
(с) 35 MAT О=(А+В)*Р 
where A and B are ordinary (scalar) variables and P and Q are 10 x 10 matrices. 
(4) 60 MAT H=(3)*H 
where H is a 6 x 6 matrix. 
(e) 60 MAT G-H*H 
where G and H are 6 x 6 matrices. 


202 


7.40 


(f) 
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(i) 
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60 MAT H-G*H 
where G and H are 6 x 6 matrices. 
10 DIM Х(10,20),Ү(10,20),7(10,20) 


50 MAT 2-Х«Ү 
10 DIM V(100) 


50 MAT INPUT V(50) 


10 DIM C(100,50),D(100,50) 
20 INPUT M,N 
30 MAT READ C(M,N),D(M,N) 


10 DIM C(100,50),D(100,50) 
20 INPUT M,N 


100 MAT PRINT C(M,N),D(M,N) 
10 DIM A(2525) 


50 MAT A=CON(12,24) 
10 DIM A(20,5) 


80 МАТ A-ZER(10,6) 
10 DIM F(10,20),G(10,20) 


60 MAT G=INV(F) 
10 DIM K(20,30) 


50 MAT K-IDN(12,12) 


Write one or more BASIC statements for each of the situations described below. 


(a) 


(b) 


(c) 
(4) 
(e) 


(f) 


Evaluate the formula 
F=(2*N+1)*(A™A-I) 
where A is a 10х10 matrix and AT is its transpose, I is a 10x 10 identity matrix and N is an 
ordinary (scalar) variable. What will be the dimensionality of F? 
Suppose that А, B, C and D are 10 x 10 matrices. Calculate the determinant of G, where 


G-A*C-B*D 


and print out its value. 


Modify part (b) above to print out the elements of G, followed by the inverse of G and the 
determinant of G. Space the matrix elements as closely as possible. 


Suppose that A is a 20 x 30 matrix. Assign zeros to the elements in the first 8 columns of the first 12 
TOWS. 


Suppose that A and B are 20 x 30 matrices. Read the elements in the first 12 columns of the first 8 
rows of A, followed by the elements in the first 15 columns of the first 6 rows of B. How must the 
data be arranged in the data block? 


Suppose that A and B are 20 x 30 matrices. Print the elements in the first 12 columns of the first 8 
rows of A, followed by the elements in the first 15 columns of the first 6 rows of B. Compare with 
the solution to part (e) above. 


CHAP. 7] VECTORS AND MATRICES 203 


7.41 


7.42 


7.43 


7.44 


7.45 


Programming Problems 


Modify the program given in Example 7.15 so that the transpose of F, the inverse of F and the 
determinant of F are calculated and printed. Explain the results that are obtained. 


Modify the program given in Example 7.19 so that any system of N equations in N unknowns can be 
solved. Use the variable dimension feature described in Section 7.4. Include a provision for printing the 
determinant of the coefficient matrix. 


When numerical errors are generated in solving the system of simultaneous equations C*X- D, it is often 
helpful to proceed as follows. 
(a) Calculate the vector Е=С*Х. 


(b) Calculate the error vector G= D-F. (If numerical errors are not present, then F will be the same as 
the given vector D, and the elements of G will be zeros.) 


(c) If the elements of G are not all equal to zero, then solve the system of simultaneous equations 
A*Y-G 


for the values of Y(1), Ү(2),..., Y(N). 
(d) Add the elements of Y to the corresponding elements of X to obtain an improved solution. 
Modify the program given in Example 7.19 to include this error-correction feature. Include a provision 
for calculating the determinant of the coefficient matrix. 
Use the program to solve the following system of equations. 
xı + }xa + хз + xa + з= 
dxi + 4х + dest Баз =} 
dxi + xa + bust deat xs = š 
xı + xa + ixa + x4 + xs =i 


bx, + xa + ха + ixa + xs = db 


Compare the answers obtained with and without the error-correction feature: 


Modify the program given in Example 7.22 so that several different curves can be fit to the same set of 
data (i.e., the program can be run several different times) without rereading the data each time the 
program is repeated. 


Write a BASIC program for each of the problems described below. Include a detailed outline or a 
flowchart for each problem. 


(a) Starting with the matrix A given in Example 7.18, calculate a new matrix D, where each element of 
D is the reciprocal of the corresponding element of А, i.e., d; = 1/ay. Compare the elements of D 
with the elements of the inverse of A. (The inverse of A is shown as the matrix B in Example 7.18.) 


(b) Calculate the inverse of the matrix B given in Example 7.18. Compare the elements of this matrix 
with the elements of the matrix A in Example 7.18. 
(c) For the matrices A and B given in Example 7.15, show that A*B does not equal B*A, 


(d) For the matrices A and B given in Example 7.6, show that (A*B)" = ВТжАТ, where AT represents 
the transpose of A, B* represents the transpose of B, etc. 


(e) Evaluate the matrix formula 
Y-DT«C'«C«D 
using the matrix C and the vector D given in Example 7.19. What will be the dimensionality of Y? 
(f) Evaluate the matrix formula 
Р=1+А+А?+АЗ+А* 


using the matrix А in Example 7.18. (Note that I represents the identity matrix, A2=A*A, 
АЗ= А*А*А, etc.) What will be the dimensionality of P? 


Chapter 8 


Data Files 


In computer jargon a file is an orderly, self-contained collection of information. Any type of 
information may be included. Hence a file may contain a sequence of BASIC statements, or it may 
consist of data values (і.е., numbers and strings). The first type of file is, of course, а BASIC 
program; the latter is called a data file. 

Data files offer a convenient means of storing data sets, since data files can easily be read and 
updated by a BASIC program. This chapter is concerned with the creation and use of such data files. 

We will see that BASIC includes a number of file manipulation statements similar to the matrix 
statements presented in Chapter 7. Unlike the matrix statements, however, there is considerable 
variation in the exact form of the file manipulation statements between one version of BASIC and 
another. Therefore this chapter will emphasize the concepts of data file manipulation rather than the 
details of the individual statements. 

The particular file manipulation statements appearing in this chapter are a part of the BASIC 
language applicable to Digital Equipment Corporation’s DECsystem-10 computer. They are 
representative of the file manipulation statements available in other versions of BASIC. Typical file 
manipulation procedures used with microcomputers are presented in Chapter 9, Section 9.4. 


8.1 SEQUENTIAL DATA FILES 


A sequential file is characterized by the fact that the individual items are arranged sequentially, 
one after another. Usually the items in this typé of file correspond to separate lines of information on 
a console. Thus a BASIC program is stored as a sequential file, since each statement appears on a 
separate line and the statements are arranged in the order of increasing line numbers. 

A sequential file can also represent sets of data. Such a file will consist of several lines of data, 
each line beginning with a line number. The lines will be arranged sequentially, in the order of 
increasing line numbers. The data items on a given line can be numbers, strings or a combination of 
the two, separated either by commas or by blank spaces. If a string contains a comma or a blank 
space, it must be enclosed in quotation marks. 


EXAMPLE 8.1 


A sequential data file contains the name and exam scores of each student in a computer science class. The 
file appears as follows. 


10 “COMP SCI 100” “FALL, 1982” 

20 “ADAMS B F” 45 80 80 95 55 

30 “BROWN P” 60 50 70 75 55 

40 “DAVIS R A” 40 30 10 45 60 

50 “FISHER E K” 0550 10 

60 “HAMILTON S P” 90 85 100 95 90 
70 “JONES J J” 95 90 80 95 85 

80 “LUDWIG C W” 35 50 55 65 45 
90 “OSBORNE T” 75 60 75 60 70 

100 “PRINCE W F” 85 75 60 85 90 
110 “RICHARDS E N” 50 60 50 35 65 
120 “SMITH M C” 70 60 75 70 55 

130 “THOMAS B A” 10 25 35 20 30 
140 “WOLFE H” 25 40 65 75 85 

150 “ZORBA D R” 65 80 70 100 60 
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We see that each line begins with a line number. The first line contains two strings, identifying the course 
and the term, respectively. (Notice that the strings are enclosed in quotation marks, since commas and blank 
spaces are included within the strings.) Each successive line contains the name of a student (a string), followed by 
five examination scores. Thus the file consists of 15 lines, though there are only 14 students in the class. 

It should be understood that the sequencing of this data file is determined by the line numbers, not the 
names. The fact that the names are arranged alphabetically is immaterial. 


Creating and Editing a Sequential File 


Since a sequential data file is structured in the same way as a BASIC program, we can create and 
edit such a file in the same manner as a program. We can also print a sequential data file on the 
console if we wish. These functions are carried out with the system commands presented in Chapter 3 
(e.g., NEW, OLD, SAVE, LIST, etc.). 

The rules for naming a data file are the same as for a BASIC program—typically one to six 
characters, beginning with a letter. 


EXAMPLE 8.2 


Suppose that the sequential data file shown in Example 8.1 is to be entered into the computer via the 
console and saved under the name SCORES. To do so we must log in, specify that SCORES will be a new file, 
type the data sets line by line and then save the file. We can also list the file if we wish, after it has been entered 
and corrected. 


NEW OR OLD-->NEW 

NEW FILE NAME-~>SCORES 

>10 “COMP SCI 100" "FALL, 1982" 
>20 “ADAMS B F" 45 80 80 95 55 
>30 “BROWN P" 60 50 70 75 55 

>40 "DAVIS R А" 40 30 10 45 60 

>50 "FISHER E K" O 5 5 O 10 

260 “HAMILTON S Р" 90 85 100 95 90 
>70 "JONES J J" 95 90 80 95 85 

>80 "LUDWIG С W" 35 50 55 65 45 
>90 "OSBORNE Т" 75 60 75 60 70 
>100 "PRINCE W F" 85 75 60 85 90 
>110 "RICHARDS Е М" SO 60 50 55 65 
>120 "SMITH М С" 70 60 7XNXNS 70 55 
>130 "THON\N\MAS C\C\B А" 10 25 55 20 50 
>140 "WOLFE H" 25 40 65 75 85 

»150 "ZORBA 65 80 70 100 60 

»150 "ZORBA D В" 65 80 70 100 60 
>SAVE N 
>LIST 


SCORES 


10 “COMP SCI 100" "FALL, 1982" 
20 “ADAMS B F" 45 BO 80 95 55 

30 “BROWN P" 60 50 70 75 55 

40 "DAVIS R А" 40 30 10 45 60 
50 "FISHER E K" O 5 5 O 10 

60 "HAMILTON S P" 90 85 100 95 90 
70 "JONES J J" 95 90 80 95 85 
80 "LUDWIG C W" 55 SO 55 65 45 
90 “OSBORNE Т" 75 60 75 40 70 
100 "PRINCE М F" 85 75 60 85 90 
110 "RICHARDS E М" 50 60 50 55 65 
120 "SMITH М С" 70 60 75 70 55 
130 "THOMAS В А" 10 25 55 20 50 
140 "WOLFE H" 25 40 65 75 85 

150 "ZORBA D R" 85 80 70 100 60 


Fig. 8.1 
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Figure 8.1 shows the major portion of the timesharing session, beginning after the login procedure. Notice 
that three typing errors were made when entering the data (in lines 120, 130 and 150). These errors were 
corrected either through use of the DELETE key (lines 120 and 130) or by retyping the entire line (see line 150). 

A complete listing of the data file is shown at the bottom of Fig. 8.1. This listing was produced in response 


to the LIST command, shown in the middle of the figure. 
The system commands entered by the user have been underlined. It should be understood that the lines of data 


shown in the top half of the figure were also entered by the user, though they are not underlined. 
A sequential data file can also be created directly by a BASIC program. We will see how to do 
this in Example 8.4. 


Reading a Sequential Data File 

In many applications the information stored in a data file will be read and then processed by a 
BASIC program. The data items in a sequential data file must be read in the same order they are 
stored, starting at the beginning of the data file. All of the information that is read will be preserved 
for subsequent use. 

In order to read data from a sequential data file under program control, we will make use of the 
file manipulation statements FILES, INPUT and IF END. The following example illustrates how this 
is accomplished. 


EXAMPLE 8.3 
Let us return to the list of names and exam scores shown in Fig. 8.1. Suppose we want to carry out the 
following operations for each student in the class. 
1. Read the first five exam scores from data file SCORES. 
2. Enter a sixth exam score from the console. 
3. Calculate an average of all six exam scores. 
4. Print the average on the console. 
The computation will cease when the end of the data file has been reached. 
A BASIC program which will carry out these operations is shown in Fig. 8.2. The variables in this program 
are defined as follows. 
N = line number of each line in data file SCORES 
T$ = course title 
Y$ = term 
N$ = student name 
C1, C2, C3, C4, C5 = exam scores for each student in data file SCORES 
C6 = exam score to be entered from the console for each student 
A = calculated average of all six exams for each student 


An explanation of the file manipulation statements appearing in this program is given after the Program listing. 


10 FILES SCORES 

20 INPUT #1,N,T¢,Y¢ 

30 PRINT "COURSE: "5 T$, "TERM: "; Y$ 
40 PRINT 

SO INPUT %1,М,М%,С1,С2,С5,С4,С5 
60 PRINT N$,"SCORE="; 

70 INPUT Có 

ВО LET A=(C1+C2+C3+04+C5+04) 76 
90 PRINT "AVERABE=";A 

100 PRINT 

110 IF END #1,THEN 130 

120 GOTO 50 

150 END 


Fig. 8.2 
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A transfer of information between a data file and a BASIC program always takes place over a data channel. 
Statement number 10 (FILES) assigns the data file SCORES to data channel number 1. This must be done 
before any information can be transferred to or from the data file. All subsequent file manipulation statements 
will then refer to the data file by channel number, not by name. 

Statement 20 reads the line number (N), the course title (T$) and the term (Y$) from the first line of the 
data file assigned to channel number 1 (i.e., data file SCORES). Statement 50 reads a line number, a student's 
name and five examination scores from a line in SCORES. (Notice that the line numbers must be read from the 
data file, even though they are not used.) 

Statement number 110 tests for an end of the data file. If there are no more data (end of file), then 
control is transferred to statement 130 (END); otherwise, control passes to the next executable statement 
(statement 120). Thus we see that this statement is very similar to our familiar IF-THEN statement, although it is 
used only to test for an end-of-file condition. 

The remaining statements in this program are ordinary BASIC statements, as discussed in earlier chapters 
of this book. Their meaning should be straightforward. 

Figure 8.3 shows the output which is generated by this program and data file SCORES. (A listing of the 
data file is shown in Fig. 8.1.) Note that the only information entered directly from the console is a single exam 
score for each student. The remaining data was either transferred to the console from the data file, or else 
generated by the program. (The input data are underlined.) 


COURSE:COMP SCI 100 TERM: FALL, 1982 


ADAMS B F SCORE= ?75 
AVERAGE= 71.6667 


BROWN P SCORE= ?80 
AVERAGE= 65 


DAVIS RA SCORE= 755 
AVERAGE= 40 


FISHER E K SCORE= ?5 
AVERAGE= 4.16667 


HAMILTON S P SCORE- 790 
AVERAGE= 91.6667 


JONES J J SCORE= 780 
AVERAGE= 87.5 


LUDWIG C W SCORE= ?70 
AVERAGE= 53.3333 


OSBORNE T SCORE= 780 
AVERAGE= 70 


PRINCE W F SCORE= 7100 
AVERAGE= 82.5 


RICHARDS E М SCORE= 770 
AVERAGE= 55 


SMITH M C SCORE= ?75 
AVERAGE= 67.5 


THOMAS B А SCORE= ?10 
AVERAGE= 21.6667 


WOLFE H SCORE= 795 
AVERAGE= 64.1667 
ZORBA D R SCORE= 795 


AVERAGE= 78.3333 
Fig. 8.3 
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Writing a Sequential Data File 

Information can be written onto a data file by a BASIC Program in much the same manner that 
information is read from a data file. When writing onto a sequential data file, the new information 
will automatically be located beyond any existing data, thus protecting whatever information may 
already be in the file. If the old data are to be deleted Prior to writing the new data, then the file must 
explicitly be erased and Tepositioned to its starting point. 

In the following example we will see how information can be read from both a sequential data 
file and the console, processed, and the results written out to the console and to a new sequential 
data file. To accomplish this we will utilize the file manipulation statements FILES, QUOTE, 
SCRATCH, INPUT, PRINT and IF END. The purpose of each statement will be discussed in the 


1. Read а set of exam scores from an existing data file (e.g., SCORES). 
2. Enter a new exam score from the console. 

3. Calculate an average for all of the exam scores. 

4. Print the calculated average on the console. 

5. 


Write the new set of data (i.e., the original exam Scores, the new exam score and the calculated average) 
onto a new data file. 


At the completion of the computation the new data file will contain all of the information in the original data 
file, plus an additional exam Score and an average grade for each student. 


Computational Procedure 


will be used to determine each student's final grade). 

In order that our program be as general as Possible, let us enter all of the exam scores for each student into 
the array C. Thus C(1) will refer to the first exam score, C(2) the second exam Score, etc. We will allow for as 
many as 15 individual exam scores for each student. 

The variable K will refer to the particular exam being entered from the console; e.g., if the scores are being 
entered for the sixth exam, then K will be assigned a value of 6. Also, J$ will represent either “YES” or “МО”, 


depending upon whether or not an average score is to be calculated for each student. All other variables will be 
as defined in Example 8.3. 
The computation will proceed as follows, 


1. Assign the data file SCORES to data channel 1, and UPDATE to data channel 2. (SCORES will be 
the input file and UPDATE the output file.) 
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Read a line number (N), the course title (T$) and the term (Y$) from SCORES. 
Print the course title and the term on the console. 


3 
4 
5. Write the line number, the course title and the term onto UPDATE. 
6. Enter a value for K (the exam number) from the console. 

7 


Enter a value for J$ (either “YES” or “МО”) from the console, indicating whether Ог not an average 
Score is to be calculated for each student. 


Read a line number (N), a student's name (N$) and K-1 exam Scores from SCORES. 
Enter the Kth exam Score from the console. 


م № 


(Continued оп р. 210) 


START 


ASSIGN 
SCORES TO #1 
UPDATE TO #2 


PRINT #2 
N,T$,Y$ 


(Go REA yu 


4 


—— ا‎ ЦЕО 


Fig. 8.4 
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10. Write the line number, the student’s name and all K exam scores onto UPDATE. 
11. If J$=“NO”, then proceed to step 13 below. Otherwise, calculate an average exam score, A, using the 
formula 


aS C(1)+C(2)+ - - - +C(K) 
K 


12. Print the average score on the console and write this value onto UPDATE. 


13. Test to see if there are additional data sets in SCORES. If so, return to step 8; otherwise, terminate 
the computation. 


A corresponding flowchart is shown in Fig. 8.4. 


The BASIC Program 
Figure 8.5 contains the actual BASIC program. Notice that several file manipulation statements are 


included. 

The FILES statement (line 50) assigns the data files SCORES and UPDATE to data channels 1 and 2; 
respectively. This statement must always precede all other file manipulation statements. Once the data files have 
been assigned to their respective data channels, then all references to these files will be by channel number rather 


than file name. 


10 REM PROGRAM TO PROCESS STUDENT EXAMINATION SCORES 
20 REM USING SEQUENTIAL DATA FILES 


40 DIM C(15) 
50 FILES SCORES, UPDATE 
60 QUOTE #2 

70 SCRATCH #2 

ВО INPUT #1,N,T$,Y$ 

90 PRINT "COURSE: "; T$, "TERM: "; Y$ 
100 PRINT 42,N; T$; Y$ 

110 PRINT 

120 PRINT "EXAM NUMBER"; 
130 INPUT K 

140 PRINT 

150 PRINT “CALCULATE AVERAGES (YES OR NO)"; 
160 INPUT J$ 

170 PRINT 

180 INPUT #1,N,N$ 

190 FOR 1=1 TO K-1 

200 INPUT #1,C(1) 

210 NEXT I 

220 PRINT N$,"SCORE-"; 
230 INPUT C(K) 

240 PRINT %2,М;М4; 

250 LET 8-0 

260 FOR I=1 TO K 

270 PRINT #2,C(1); 
280 LET S=S+C(I) 

290 NEXT I 

300 IF J$="NO" THEN 340 
310 LET A=S/K 

520 PRINT “AVERAGE=";A 
330 PRINT 42,4; 

340 PRINT 42 

350 PRINT 

360 IF END #1, THEN 380 
370 GOTO 180 

380 END 


Fig. 8.5 
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Statement number 60 (QUOTE) specifies that all strings that are written onto UPDATE will be enclosed in 
quotation marks. This is necessary if the strings are to be read by a BASIC program at some later time. The 
SCRATCH statement (line 70) causes UPDATE to be erased and reset to its starting point in preparation for 
writing data. 

Data are read from SCORES at several places within the program (lines 80, 180 and 200). Similarly, data 
are written onto UPDATE at several places (lines 100, 240, 270, 330 and 340). Notice that the line numbers are 
read and written, even though they are not used by the program. Also, we see that the variables appearing in the 
PRINT #2 statements are followed by semicolons. This causes the data in each line of UPDATE to be spaced as 
closely as possible. 

COURSE:COMP SCI 100 TERM:FALL, 1982 


EXAM NUMBER 76 
CALCULATE AVERAGES (YES OR NO) ?МО 


ADAMS B F SCORE= 775 
BROWN P SCORE= 780 
DAVIS R A SCORE= 255 


FISHER E K SCORE= 75 
HAMILTON S Р SCORE= 790 


JONES J J SCORE= 780 
LUDWIG C W — SCORE= 770 
OSBORNE T SCORE= 780 


PRINCE W F SCORE= 7100 
RICHARDS E N SCORE= 770 


SMITH M C SCORE= ?75 
THOMAS B А SCORE= ?10 
WOLFE H SCORE= ?95 
ZORBA D R SCORE= ?95 


TIME: 0.80 SECS. 
>OLD 
OLD FILE NAME-->UPDATE 


>LIST 


UPDATE 


10 “COMP SCI 100" "FALL, 1982" 

20 “ADAMS BF" 45 80 80 95 55 75 

ЗО "BROWN P" 60 50 70 75 55 80 

40 "DAVIS R a" 40 50 10 45 60 SS 

so "FISHER E K" O 5 5 O 10 5 

60 "HAMILTON S P" 90 85 100 95 90 90 
70 "JONES J J" 95 90 80 95 85 BO 

80 "LUDWIG CW" 35 50 55 45 45 70 
90 "OSBORNE T" 75 60 75 40 70 80 

100 “PRINCE WF" 85 75 60 85 90 100 
110 “RICHARDS Е N" 50 60 50 35 65 70 
120 “SMITH M C" 70 60 75 70 55 75 
130 "THOMAS B А" 10 25 35 20 30 10 
140 "WOLFE H" 25 40 45 75 85 95 

150 "ZORBA DR" 65 80 70 100 60 95 


Fig. 8.6 
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Finally, in line 360 we examine SCORES for an end of file. Control is transferred to line 380 (END) if an 
end of file is found, thus terminating the computation. Otherwise control is transferred to the next executable 
statement (line 370) in preparation for processing the next student’s grades. 


Application of the Program 


The new data file (UPDATE), containing six exam scores for each student, is shown at the bottom of Fig. 
8.6. The data file was Benerated from the original data file, SCORES, which is shown in Fig. 8.1. The system 


command LIST was used to produce a listing of UPDATE on the console, after the program execution had been 
completed. 4 


>OLD 
OLD FILE NAME--»SCORES 
>SCRATCH 


>OLD 
OLD FILE NAME--»UPDATE 


>ВЕМАМЕ SCORES 
Fig. 8.7 


Notice the similarity between Fig. 8.8 and Fig. 8.3 (the latter was generated using the program in Example 
8.3). Now, however, we have not only a record of each student's average exam score shown on the console but 


also a complete record of the individual exam scores and the averages in data file UPDATE. A listing of 
UPDATE is shown at the bottom of Fig. 8.8. 


-— — 
— р LRL шы 


———— 


COURSE: COMP SCI 100 TERM:FALL, 1982 


EXAM NUMBER 74 
CALCULATE AVERAGES (YES OR NO) ?YES 


ADAMS В F SCORE- ?75 
AVERAGE- 71.6667 VA 


BROWN P SCORE- ?80 
AVERAGE= 65 т 
DAVIS R А SCORE= 755, 
AVERAGE= 40 


FISHER E K SCORE= 75 
AVERAGE= 4.16667 


HAMILTON S Р SCORE= 790 
AVERAGE= 91.6667 


JONES J J SCORE= 780 
AVERAGE= 87.5 


LUDWIG C W SCORE= ?70 
AVERAGE- 55. 5555 = 


OSBORNE T SCORE= ?80 
AVERAGE= 70 


PRINCE W F SCORE= 7100 
AVERAGE= 82.5 


RICHARDS Е N SCORE= 770 
AVERAGE= 55 


SMITH M C SCORE= 775 
AVERAGE= 67.5 


THOMAS B A SCORE= 710 
AVERAGE= 21.6667 


WOLFE H SCORE- 795 
AVERAGE= 64.1667 


ZORBA D R SCORE- 795 
AVERAGE- 78.3333 


TIME: 0.92 SECS. 

>OLD 

OLD FILE МАМЕ-->УРОАТЕ. 
>LIST 


UPDATE 


10 "COMP SCI 100" "FALL, 1982" 

20 “ADAMS ВЕ" 45 80 80 95 55 75 71.6667 
50 "BROWN P" 60 50 70 .75 55 80 45 

40 "DAVIS RA" 40 50 10 45 60 55 40 

50 "FISHER E К" О 5 5 0 10 5 4.16667 

60 "HAMILTON S P" 90 85 100 95 90 90 91.6667 
70 "JONES J J" 95 90 80 95 85 80 87.5 

во "LUDWIG C W" 35 So 55 65 45 70 53.3333 
90 “OSBORNE T" 75 60 75 60 70 80 70 

100 “PRINCE WF" 85 75 60 85 90 100 82.5 
110 "RICHARDS E М" 50 60 50 55 65 70 55 
120 "SMITH M C" 70 60 75 70 55 75 47.5 

150 "THOMAS B А" 10 25 55 20 50 10 21.6667 
140 "WOLFE H" 25 40 65 75 85 95 64.1667 
150 "ZORBA D R" 65 80 70 100 60 95 78.3333 


Fig. 8.8 
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(ranging from 1 to 132) must follow a $ sign. This quantity specifies the maximum number of 
characters that may appear in each string. 


EXAMPLE 8.5 
A BASIC program contains the statement 
10 FILES SALES%,MASTER%,ITEMS$20,CUSTMR$72 


The files SALES and MASTER, assigned to data channels 1 and 2, are numeric random data files, as indicated 
by the % sign following each file name. ITEMS and CUSTMR, assigned to data channels 3 and 4, are string 
random data files with maximum string lengths of 20 and 72 characters per string, respectively. 


Note that the % sign, or the $ sign followed by a positive integer, is not a part of the actual file 
name. Rather, it is a suffix. (Recall that each file name, exclusive of suffixes, cannot exceed six 


characters.) 

Random data files, unlike sequential data files, cannot be listed directly on the console. Neither 
can they be edited using the BASIC system commands. However, we can easily write a BASIC 
program that will carry out either or both of these tasks. We will see how this is accomplished later in 
this chapter. First we must consider how the individual items in a random data file can be accessed. 


Pointer Control 

Although the data items in a random data file are not arranged in any special order, the locations 
of the data items are numbered sequentially from the start of the file (beginning with location 
number 1 and increasing by one unit for each consecutive data item). А pointer is used to indicate the 
location of the individual data items. The pointer must always be properly positioned before a data 
item can be transferred to or from the data file. 


EXAMPLE 8.6 


A random data file contains eight numeric values, arranged in the order shown below. 


Value 
433 


3 
3 


бо ډه‎ O Q + UO мю س‎ 
Я 
an 


A Suppose we want to read the fifth, the second and the seventh data items, in that order. We first position the 
pointer to location 5 and read a value of 75. Then we reposition the pointer to location 2 and read a value of 
256. Finally, we move the pointer to location 7 and read a value of 609. 


The pointer is automatically advanced one location every time a data item is read from or written 
onto the file. Thus it is possible to read and-write data items sequentially from a random data file. We 
can reposition the pointer whenever we wish, however, by means of the SET statement (the RESET 
statement in some versions of BASIC). This statement permits us to access data items in whatever 
order we may desire. 

Closely associated with the SET statement are the library functions LOC and LOF. The LOC 
function allows us to determine the position of the pointer, and the LOF function indicates the last 
storage location in the file. We see an illustration of the use of the SET statement and the LOC and 
ГОЕ functions in the next example. 
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EXAMPLE 8.7 


Shown below is the skeletal structure of a BASIC program that accesses data from a numeric random data 
file. 


10 FILES VALUES% 

40 SET :LK 

80 Е LOC(1)>LOF(1) ТНЕМ 200 
110 SET :1,LOC(1)+3 


150 SET :1,(1+LOF(1))/2 


Statement 10 assigns the numeric random data file VALUES to data channel 1. In statement 40 the pointer 
for data channel 1 is positioned at the location indicated by the variable K (we assume that K has been assigned 
a positive integer value). Statement number 80 causes a transfer of control to statement 200 if the pointer for 
data channel 1 is positioned at any location beyond the end of the file. 

In statement 110 we reposition the pointer for data channel 1 three locations beyond its present position. 
Finally, in statement 150 we reset the pointer to the midpoint of the file, determined as the average of the first 
and last locations in the file. A 

Notice that the pointer position in statements 110 and 150 are determined by the formulas LOC(1)*3 and 
(1+LOF(1))/2, respectively. A formula is permitted in a SET statement provided its value is positive but does 
not exceed the last location in the file. Noninteger values are automatically truncated. 

Observe also that the channel number in the SET statement is preceded by a colon (:) instead of a pound 
sign (%). This is how we distinguish a random data file from a sequential data file. All of the file manipulation 
statements that refer to a channel number make use of this sign convention. 


We will see a complete BASIC program that makes use of the SET statement and the LOC and 
LOF functions in Example 8.13. 


Reading a Random Data File 


We have already seen that a random data file can be read either sequentially or randomly. If the 
data are to be read sequentially, then thé position of the pointer need not be considered, since the 
FILES statement places the pointer at the first location in the file and the pointer is automatically 
advanced one location each time a new data item is read. 


EXAMPLE 8.8 


The random data file STATES contains the names of the 50 states in the United States, arranged 
alphabetically. Figure 8.9 presents a BASIC program that will read the name of each state from the data file and 
then print the name on the console. The data will be read sequentially, in the same order they are stored within 
the file. 

The FILES statement accomplishes several things in this program. First, it assigns the string random data 
file STATES to data channel 1, and it specifies that each string will consist of no more than 15 characters. 
Furthermore, it positions the pointer to the first location in the file. 

Notice that we use the file manipulation statement READ rather than INPUT when reading a random data 
file. (In many versions of BASIC the READ and WRITE statements are used for random data files, and the 
INPUT and PRINT statements for sequential data files.) 

The output that is generated by this program (i.e., the listing of the data file) is shown at the bottom of 
Fig. 8.9. } 


If the items їп а data file are to be read randomly, then we must move the pointer to the proper 
location before reading each item. We use the SET statement for this purpose, as shown in Example 8.9. 
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DATA FILES 


10 FILES STATES$15 
20 FOR I-1 TO 50 
30 READ :1,М% 
40 PRINT N$ 

SO NEXT I 

60 END 


>RUN 
FILGEN 18:52 


ALABAMA 
ALASKA 
ARIZONA 
ARKANSAS 
CALIFORNIA 
COLORADO 
CONNECTICUT 
DELAWARE 
FLORIDA 
GEORGIA 
HAWAII 

IDAHO 
ILLINOIS 
INDIANA - 

IOWA 

KANSAS 
KENTUCKY 
LOUISIANA 
MAINE 
MARYLAND 
MASSACHUSETTS 
MICHIGAN 
MINNESOTA 
MISSISSIPPI 
MISSOURI 
MONTANA 
NEBRASKA 
NEVADA 

NEW HAMPSHIRE 
NEW JERSEY 
NEW MEXICO 
NEW YORK 
NORTH CAROLINA 
NORTH DAKOTA 
OHIO 
OKLAHOMA 
OREGON 
PENNSYLVANIA 
RHODE ISLAND 
SOUTH CAROLINA 
SOUTH DAKOTA 
TENNESSEE 
TEXAS 

UTAH 

VERMONT 
VIRGINIA 
WASHINGTON 
WEST VIRGINIA 
WISCONSIN 
WYOMING 


TIME: 0.08 SECS. 
Fig. 8.9 
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EXAMPLE 8.9 


Let us again consider the random data file STATES, as described in Example 8.8. We now wish to write a 
BASIC program that will perform the following steps. 


1. Enter from the console the location of a string in STATES. (Each location will be specified by an 
integer constant having a value between 1 and 50.) 


2. Read the string (i.e., the name of a state) contained in that location. 
3. Print the string on the console. 


This procedure will be repeated until a location is specified whose value is less than 1 or greater than 50. 
Figure 8.10 presents the desired BASIC program. The variables L and N$ represent the specified location 
and the string contained in that location, respectively. Notice that the SET statement precedes the READ 
statement, thus placing the pointer at the proper location prior to reading each data item. 
Тһе lower part of Fig. 8.10 shows the output that is generated in response to several input quantities. Note 
that the names of the states are listed in the order specified by the input rather than the order in which they are 
stored in the data file. 


10 FILES STATES$15 
20 PRINT "LOCATION"; 
50 INPUT L 

40 IF 1<1 THEN 110 
50 IF 1>50 THEN 110 
60 SET :1,L 

70 READ :1,N$ 

80 PRINT № 


90 PRINT 
7100 GO TO 20 
110 END 

>RUN 

ЕХВ.9 19:02 23-MAR 
LOCATION 258 
PENNSYLVANIA 
LOCATION 723 
MINNESOTA 
LOCATION 750 
WYOMING 
LOCATION 711 
HAWAII 
LOCATION 78 
DELAWARE 


LOCATION 745 
VERMONT 


LOCATION 70 


TIME: 0.31 SECS. 
Fig. 8.10 
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Writing a Random Data File 

A data item can be written onto a random file in much the same manner that it is read, except 
that we now use the file manipulation statement WRITE instead of READ. As before, the pointer 
must be positioned at the proper location before the data item is written. The new data item will 
replace whatever was previously stored in that location. 


EXAMPLE 8.10 Inventory Control 


А warehouse maintains an inventory of many different items. The quantity of each item will fluctuate from 
one day to another as orders are filled for customers (thus decreasing the inventory) and as shipments are 
received from suppliers (increasing the inventory). We wish to maintain a record of the exact inventory for each 
item. To do so we must adjust the inventory level after every individual transaction. 


Computational Procedure 

The inventory level for each item can be recorded most conveniently in a numeric random data file. We will 
use the data file INVTR Y for this purpose. 

Each item will be assigned a unique stock number (a positive integer) which will identify that item. The 
stock number will also be used to indicate the location of the inventory record in the data file. Thus if we should 
want to know how many units of item 86 are currently in the warehouse, we would examine the contents of 
storage location 86 in the data file. 

Тһе computation will proceed as follows. 

1. Assign the data file INVTRY to data channel 1. 
2. Print the size of the data file (i.e., the value of the last storage location) on the console. 
3. Enter a value for the stock number (P) from the console. 


START 
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4. If P has а value that is less than 1 or greater than the last location in the data file, then terminate the 
computation, Otherwise proceed with step 5 below. 


Set the pointer for the data file to location P. 
Read the inventory level (N) from the data file. 
Print the current value for N on the console. 


Enter the change in the inventory level (N1), in terms of number of units, from the console. (Note that 
a decrease in the inventory level must be indicated by entering a negative value for N1.) 


@ = | м 


9. Calculate a new inventory level, i.e., let 
N=N+N1 


10. If the new value for N is negative (which is physically impossible), then set N equal to zero. 

11. Print the new value for N on the console. 

12. Reset the pointer to location P. (Note that the pointer will have advanced to location P+1 after step 6.) 
13. Write the new value for N onto the data file. 

14. Return to step 3. 


A corresponding flowchart is shown in Fig. 8.11. 


The BASIC Program 

Figure 8.12 contains the actual BASIC program. We see that the program contains the file manipulation 
statements FILES, SET, READ and WRITE, as well as the library function ГОЕ. Notice that the READ and 
WRITE statements are each preceded with a SET statement, thus positioning the pointer to the proper location 
before transferring information to or from the data file. 

The lower portion of Fig. 8.12 shows a typical set of data resulting from execution of the program. Both 

input and output data are shown. Note that the program execution is terminated by entering a value of zero for 
a stock number. 


We can include several output items in a single WRITE statement if we wish. In such cases the 
first data item will be placed in the location designated by the pointer, and the subsequent data items 
will be stored in the following consecutive locations. As with the PRINT statement, each data item 
can be represented by a constant, a variable, a formula or a function reference. 


EXAMPLE 8.11 
A BASIC program contains the statements 
10 FILES DATA% 
100 SET :1,P 
110 WRITE :1,Ci,(A+B)/2,SQR(X) 
Suppose that P has been assigned a value of 39. Then the value assigned to C1 will be placed in location 39 of 


the numeric data file DATA. Location 40 will contain the value represented by the formula (A+B)/2, and 
location 41 will contain SOR(X). 


Creating a Random Data File 

A random data file cannot be created using the BASIC system commands. We must therefore 
write a special BASIC program to create a random data file. The procedure for doing this is 
presented in the next example. 


EXAMPLE 8.12 


Suppose that we wish to create the random data file STATES by means of the BASIC program FILGEN. The 
BASIC program and its associated system commands are shown in Fig. 8.13. The user-added system commands have 
once again been underlined. 
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DATA FILES 


10 REM INVENTORY CONTROL PROGRAM 
20 FILES INVTRY% 

30 PRINT "STOCK NUMBERS RUN FROM 1 TO ";LOF(1) 
40 PRINT 

SO PRINT "STOCK NUMBER"; 

&0 INPUT P 

70 IF P«1 THEN 220 

80 PRINT 

90 SET :1,P 

100 READ :1,N 

110 PRINT "ORIGINAL INVENTORY-";N;" ITEMS" 
120 PRINT "CHANGE IN INVENTORY LEVEL"; 

130 INPUT Ni 

140 LET N=N+N1 

150 IF N»-0 THEN 170 

160 LET N-O 

170 PRINT "NEW INVENTDORY-";N;" ITEMS" 

180 PRINT 

190 SET :1,P 

200 WRITE :1,N 

210 GOTO 50 

220 END 


>RUN 


ЕХВ.10 19104 25-мав 
STOCK NUMBERS RUN FROM 1 ТО 2000 
STOCK NUMBER ?1186 

ORIGINAL INVENTORY= 346 ITEMS 
CHANGE IN INVENTORY LEVEL 7-45 
NEW INVENTORY= 501 ITEMS 

STOCK NUMBER 2708 

ORIGINAL INVENTORY= 368 ITEMS 
CHANGE IN INVENTORY LEVEL 2200 
NEW INVENTORY= 568 ITEMS 

STOCK NUMBER 784 

ORIGINAL INVENTORY- 147 ITEMS 
CHANGE IN INVENTORY LEVEL 216 
NEW INVENTORY= 143 ITEMS 

STOCK NUMBER 71400 

ORIGINAL INVENTORY= 78 ITEMS 
CHANGE IN INVENTORY LEVEL 2-50 
NEW INVENTORY= 28 ITEMS 


STOCK NUMBER 20 
TIME: 0.29 SECS. 


Fig. 8.12 
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>NEW 
NEW FILE МАМЕ-->ЗТАТЕЗ 
>SAVE 
>NEW 


NEW FILE NAME-—>FILGEN 
210 FILES STATES$15 

>20 INPUT N$ 

>50 IF N$-"END" THEN 60 
>40 WRITE :1,N$ 

>50 GO TO 20 

»60 END 

>SAVE 


Fig. 8.13 


Note that the first three lines define and save the file STATES, even though data have not yet been entered 
into STATES. This is required so that the file name specified in the FILES statement (line 10) will be recognized by 


the system. 

When the program FILGEN is executed, a sequence of strings will be entered from the console and written 
onto STATES, beginning in location 1 and continuing in consecutive storage locations. The computation will be 
terminated when the word END is typed, after all of the data have been entered. 


8.3 RUN TIME FILE SPECIFICATIONS 


In many applications we may wish to write a BASIC program that makes use of data files but 
does not specify any particular file names. Rather, we would enter the required file names as input 
data whenever the program is executed. A program that is written in this manner will be much more 
general than a program that requires specific data files. 

It is quite simple to enter the required file names at run time (і.е., during program execution) if we 
wish. To do so we must make use of the FILE statement rather than FILES. (Note that FILE and 
FILES are two different file manipulation statements, as we will see in the example below.) 


EXAMPLE 8.13 Searching a Data File 


This example presents an efficient technique for locating a particular data item in a random data file 
containing strings. We will assume that the strings are stored alphabetically within the file. The method, known 
as binary search, is very similar to the scheme presented in Example 6.6 for finding the maximum of a function. 


Computational Procedure 

Let us consider a search interval consisting of several consecutive storage locations within the file. Initially 
the search interval will consist of the entire file. Our overall strategy will be to compare the string at the middle 
of the search interval with the desired string. One of three results will be obtained. 

1. The string at the midpoint will be the desired string, in which case the computation will cease. 


2. The desired string will be in the first half of the search interval. Hence the second half of the search 
interval will be eliminated, and the desired string will be compared with the string at the middle of the 


remaining subinterval. 
3. The desired string will be in the second half of the search interval. In this case we eliminate the first half 
of the search interval and compare the desired string with the string located at the middle of the 


remaining subinterval. 
This procedure is repeated until either the desired string has been found, or it has been determined that this 
string is not contained within the data file. 


The Program Outline 
In order to outline the procedure let us define the following variables. 


F$ = the name of the string random data file, including the suffix 
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N$ = the string which is to be located within the data file 
M$ = a string which is read from the data file and compared with N$ 
P1 = pointer indicating the start of the search interval 

P2 = pointer indicating the midpoint of the search interval 

P3 = pointer indicating the end of the search interval 


Тһе computation will proceed as follows. 


9. 


A Ше name is entered from the console and assigned to F$. 
The file represented by F$ is associated with data channel 1. 


A string is entered from the console and assigned to N$. If N$- END, then the program execution will 

end; otherwise the computation continues with step 4 below. 

The pointers P1 and P3 are assigned initial values of 1 and LOF(1), respectively. This defines the initial 

search interval. 

If the search interval has been narrowed down to such an extent that P1 and P3 point to adjacent 

locations, then a value for M$ is read from location P1 and compared with N$. 

(a) If N$=M$, then control is transferred to step 8 below. 

(b) If N$ and M$ are different, then a new value for M$ is read from location P3 and compared with 
N$. 

(c) If N$=M$, then control is transferred to step 8 below. 


(4) If neither value of M$ is the same as N$, then a message is printed on the console which indicates 
that the desired string cannot be found. We then return to step 3 above. 


If P1 and P3 do not point to adjacent locations, then a value is determined for P2 using the formula 
P2=INT((P1+P3)/2) 
A value for M$ is read from location P2 and compared with N$. 
(a) If N$=M$, the control is transferred to step 8 below. 
(b) If N$<M$, then we retain the first half for the search interval. Hence a new value for P3 is 
computed as 
P3=P2-1 
and control is transferred back to step 5 above. 
(c) ВМ we retain the second half of the search interval. We therefore calculate a new value for 
Р1=Р2+1 


Control is then transferred back to step 5 above. 


A message is printed on the console indicating that the desired string is stored in location LOC(1)- 1. 
(Note that we use LOC(1)-1 rather than LOC(1) because the pointer will have advanced one unit when 
the most recent value of M$ was read.) 


We then return to step 3 above, thus repeating the search for a new string. 


A corresponding flowchart is presented in Fig. 8.14. 


The BASIC Program 

Figure 8.15 contains a complete BASIC program for this problem. Three file manipulation statements are 
included in the program—namely, FILE (line 40), SET (lines 180 and 290) and READ (lines 190, 210 and 300). 
The LOC and LOF statements are also present, in lines 460 and 130, respectively. Notice that the customary 
FILES statement, which assigns a specific data file to a data channel, is not present. Rather, the program reads in 
a file name from the console (line 30) and then assigns this file name to data channel 1 by means of the FILE 
statement in line 40. 

The dialog that is generated by running this program is shown in Fig. 8.16. We see that the data file 
STATES, discussed in Examples 8.8, 8.9 and 8.12, is to be searched in this example. Notice that the suffix (i.e., 
$15) is entered along with the file name. (The input data are underlined.) 


Р2= 
ІМТ((Р1--Р8)/2) 


ASSIGN F$ 
TO #1 


PRINT 
N$,LOC(1)-i 


Р1=1 
P3=LOF(1) 


PRINT 
N$,LOC(1)-1 


READ #1 
M$ 
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10 REM BINARY SEARCH PROCEDURE 
20 PRINT "FILE NAME"; 

30 INPUT F$ 

40 FILE :1,Ғ% 


60 REM ENTER STRING AND ESTABLISH INITIAL SEARCH INTERVAL 


80 PRINT 
90 PRINT "DESIRED STRING"; 

100 INPUT N$ 

110 IF N$="END" THEN 480 

120 LET Pi=1 

130 LET P3=LOF (1) 

140 

150 REM TEST FOR SMALL INTERVAL 

160 

170 IF РЗ-Р1>1 THEN 260 

180 SET :1,P1 

190 READ :1,M$ 

200 IF №=М$ THEN 440 

210 READ :1,M$ 

220 IF N$-M$ THEN 440 

230 PRINT N$;" IS NOT IN THE DATA FILE" 

240 GOTO &0 

250 

260 REM LOCATE MIDPOINT AND COMPARE 
270 

280 LET P2=INT((P1+P3) /2) 

290 SET :1,P2 

300 READ :1,M$ 

310 IF N$-M$ THEN 440 

320 IF N$>M$ THEN 390 

330 

340 REM RETAIN FIRST HALF OF SEARCH INTERVAL 
550 

360 LET P3=P2-1 

370 GOTO 150 

380 : 

390 REM RETAIN LAST HALF OF SEARCH INTERVAL 
400 

410 LET P1=P2+1 

420 GOTO 150 

450 

440 ВЕМ DESIRED STRING HAS BEEN LOCATED - PRINT OUTPUT 
450 

460 PRINT М%;" IS STORED IN LOCATION";LOC(1)-1 
470 GOTO 60 

480 END 


Fig. 8.15 


Finally, it should again be emphasized that this program, unlike the programs presented in earlier examples, 
can be run with any string data file. The particular data file to be searched is specified as an input quantity rather 
than as a part of the program. This method of file specification greatly increases the generality of the program. 


Some file manipulation statements, such as RESTORE, MARGIN and PAGE, have not been 
discussed in this chapter. (Some versions of BASIC also include a set of matrix file manipulation 
statements.) The reason for this, as mentioned earlier, is the variability of the file manipulation 
statements between one version of BASIC and another. The reader who may wish to make use of 
data files should determine the exact nature of the file manipulation statements available for his or 
her particular computer. 
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8.1 


8.2 


8.6 


8.11 


FILE NAME ?STATES$15 


DESIRED STRING ?PENNSYLVANIA 
PENNSYLVANIA IS STORED IN LOCATION, 38 


DESIRED STRING ?FLORIDA 
FLORIDA IS STORED IN LOCATION 9 


DESIRED STRING 7?DHIO 
OHIO IS STORED IN LOCATION 35 


DESIRED STRING ?ALASKA 
ALASKA IS STORED IN LOCATION 2 


DESIRED STRING ?PUERTO RICO 
PUERTO RICO IS NOT IN THE DATA FILE 


DESIRED STRING ?CALIFORNIA 
CALIFORNIA IS STORED IN LOCATION 5 


DESIRED STRING ?MASSACHUSETTS 
MASSACHUSETTS IS STORED IN LOCATION 21 


DESIRED STRING ?END 


TIME: 0.45 SECS. 
Fig. 8.16 


Review Questions 


What is a file? What kinds of information can be contained within a file? 

What is the difference between a sequential data file and a random data file? 

What are the advantages of a sequential data file compared with a random data file? 
What are the advantages of a random data file compared with a sequential data file? 
How are the data sets ordered in a а data file? 

Can numbers and strings both be included in a sequential data file? A random data file? 


How are the individual data items separated from one another in a sequential data file? What special 
rule applies to strings that contain commas or blank spaces? 


Can the BASIC system commands be used to create and edit a sequential data file? A random data file? 


What rule applies to naming a data file? 


For which type of file must the file name be followed by a suffix? What information is provided by the 
suffix? 


Must the data items in a sequential data file be read in any particular order? 
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8.23 


8.28 
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How can we test for the end of a sequential data file? 

What is a data channel? How is a particular data file assigned to a data channel? 
Where on a sequential data file must new information be written? 

How can a sequential data file be erased and repositioned to its starting point? 


When writing a data set onto a sequential data file, how can the spacing of the individual data items be 
controlled? 


How can a sequential data file be renamed? 

How are the data items arranged in a random data file? How can a specific data item be accessed? 
What is a pointer? How can the location of a pointer be established? How can a pointer be repositioned? 
How are data items read from a random data file? Can a random data file be read sequentially? Explain. 


How are data items written onto a random data file? Can a random data file be written sequentially? 
Explain. 


When a data item is written onto a random data file, what happens to the information that was 
previously stored in that location? 


How can a random data file be created? 


How can a program be written so that the name of a data file can be specified during run time? Which 
file manipulation statements must be utilized in order to accomplish this? 


When a random data file is specified at run time, must the suffix be included with the file name? 


Summarize the purpose of each of the following file manipulation statements: FILES, FILE, INPUT, 
READ, PRINT, WRITE, IF END, QUOTE, SCRATCH, SET. 


How do the file manipulation statements INPUT and PRINT differ from READ and WRITE? 
How do the file manipulation statements FILES and FILE differ from one another? 


What is the purpose of the library functions LOC and LOF? 
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Solved Problems 


8.30 Several BASIC statements, or groups of statements, are shown below. Some are written 
incorrectly. Identify all errors. 


(а) 10 FILES DATAOLD,DATANEW 


A file name cannot exceed six characters in most versions of BASIC. 


(b) 50 PRINT #3,N,N$,P+Q,LOG(T) 
Correct, provided a sequential data file has been assigned to data channel 3. 


(c) 25 READ :2,N$,M$,C1,C2 


A random file cannot contain both strings and numeric constants. 


(d) 150 IF END #1, THEN STOP 
The word STOP must be replaced with a statement number. 


(e) 10 FILES DATA1%,DATA2% 
40 READ :1,C1,C2 


80 WRITE :2,C1,C2 


Correct. 


(f) 10 FILES SALES 


75 SET #1,P 
80 INPUT #1,A,B,T$,G 


The SET statement is used only with random data files. 


(g) 60 IF P=LOF(2) THEN 175 
Correct, provided a random data file has been assigned to data channel 2. 


8.31 Write one or more BASIC statements or system commands for each of the situations 
described below. 
(a) Create the sequential data file SALES. Save and list the file after it has been entered. 


NEW OR OLD--> NEW 
NEW FILE NAME--> SALES 
102%: 


20...| Data file SALES 
200... 


SAVE 
LIST 
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(b) 


(c) 


(d) 


(e) 


(f) 


(g) 


DATA FILES [CHAP. 8 


Assign the sequential data file SALES to data channel 1. 
10 FILES SALES 


Assign the sequential data file represented by the variable F$ to data channel 1. 


10 INPUT F$ 
20 FILE #1,F$ 


Each line in the sequential data file FILE1 consists of a line number, followed by the values 
for the variables A, B, P$ and Q$. For each value of A and B we wish to calculate a value for 
C, where 


C=SQR(A*B) 


and write the values for A, B, C, P$ and Q$ onto another sequential data file called 
FILE2. Assume that the data sets are read from channel 2 and written onto channel 4. 


10 FILES,FILE1,,FILE2 
20 QUOTE #4 

30 SCRATCH #4 

40 INPUT #2,N,A,B,P$,Q$ 
50 LET C=SQR(A*B) 

60 PRINT #4,N,A,B,C,P$,Q$ 
70 IF END #2, THEN 90 
80 GO TO 40 

90 END 


A program reads data from the sequential data file MASTER and writes updated data 
onto the sequential data file REVISE. At some later time we wish to use this same 
Program to read the data file REVISE. Since the program will not be altered, we wish to 
change the name of REVISE (the new output file) to MASTER (the old input file). Show 
how this can be accomplished. 


OLD 

OLD FILE NAME--> MASTER 
SCRATCH 

OLD 

OLD FILE NAME--> REVISE 
RENAME MASTER 


A program will write data onto the random data file MASTER. Show how a blank file 
called MASTER can be defined and saved in preparation for running the program. 


NEW 
NEW FILE NAME -— MASTER 
SAVE 


Determine the current location of the pointer for a random data file on channel 3. 
Transfer control to the end of the program if the pointer is positioned at the last location 
in the data file. 


100 LET P-LOC(3) 
110 IF P-LOF(3) THEN 250 


250 END 
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Read a positive integer quantity from the console. Position the pointer for data channel 5 
to the location indicated by the input quantity. 


150 INPUT P5 
160 SET :5,Р5 


Supplementary Problems 


8.32 Determine which of the following file manipulation statements are available at your particular in- 
stallation: FILES, FILE, INPUT, READ, PRINT, WRITE, IF END, QUOTE, SCRATCH, SET (or 
RESET), RESTORE, MARGIN, PAGE. Are other file manipulation statements also available? 


833 Review tbe purpose of each of the file manipulation statements available for your particular computer. 
Summarize the grammatical rules for writing each statement. 


8.34 Several BASIC statements, or groups of statements, are shown below. Some are written incorrectly. 
Identify all errors. 


(a) 
(b) 
(с) 


(a) 
(е) 
(/) 
(8) 
(h) 


35 READ #1,N,A,B,C,P$,Q$ 
160 WRITE :2,X,Y,X+Y,X-Y,P$ 
80 SET :2,LOC(1)+2 

90 WRITE :2,X1,X2,X3 

10 FILES NAMES$20,ACCTS% 


10 FILES MASTER 
20 SCRATCH MASTER 
30 QUOTE MASTER 


10 INPUT F$ 

20 FILES F$ 

100 SET :1,LOF(1)+3 

110 READ :1,L,M,N 

10 FILES NAMES$20,ACCTS% 


75 SET :1,P1 
80 READ :1,N$ 
85 SET :2,P2 
90 WRITE :2,N$ 


838 Write one or more BASIC statements or system commands for each of the situations described below. 


(a) 
(b) 
(c) 


(4) 
(e) 


(Р) 


Assign the sequential data files LIST1 апа LIST2 (о data channels 1 and 3, respectively. 

Assign the string random data file NAMES to data channel 1, and assign the numeric random data 
file ACCTS to data channel 2. Assume that each string in NAMES will consist of 25 or fewer 
characters. 

Assign the random data files represented by the variables F$ and G$ to data channels 2 and 5, 
respectively. 

Create the sequential data file TAPE1. Save and list the file after it has been entered. 

A program will write data onto the random data file ITEMS. Show how a blank file called ITEMS 
can be defined and saved in preparation for running the program. 

A program reads data from the sequential data files OLD1 and OLD2 and writes updated data 
onto the sequential data files NEW1 and NEW2. At some later time we may want to use this same 
program to read the data files NEW1 and NEW2. How сап the names of the previous output files 
(NEW1 and NEW2) be changed so that they can be used as input files? 
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(g) How can the program described in part (f) above be rewritten so that the output files need not be 
renamed before they can be read? Assume that the input files will be assigned to data channels 1 


and 2 and the output files to channels 3 and 4. 

(h) Each line in the sequential data file assigned to data channel 5 consists of a line number followed by 
the values for the variables F$, X, Y, Z and G$. Suppose that we want to write the values of Z, F$ 
and G$ onto a sequential data file assigned to data channel 3. Show how this can be accomplished. 

(ü) Copy the numeric random data file assigned to data channel 5 onto the file assigned to data channel 
a 


(j) Read a positive integer quantity from the console. Position the pointer for data channel 6 to the 
location indicated by the input quantity. Read a value of X from this location, and write the value 
of X onto the corresponding locatlon for data channel 2. 


(k) Determine the location of the pointer for the random data files assigned to data channels 1 and 4. 
Transfer control to statement number 200 if both pointers have the same value (i.e., indicate the 
same respective locations). Otherwise set the pointer for data channel 2 to the greater of the two 
valués. 


(1) Determine the last locations of the random data files assigned to data channels 3 and 5. Transfer 
control to statement 25 if the last locations are not the same. 


Programming Problems 


Modify the program given in Example 8.4 so that the file names can be entered from the console during 
program execution. Also, include an option which will cause the data sets to be stored in the order of 
decreasing class averages rather than by alphabetical order of the students' names. 


Modify the program given in Example 8.10 so that any of the following options can be carried out. 


(a) Simply print the inventory level for a given stock number. 


(b) Define a “block” of stock numbers by reading in the first and last stock numbers in the block. Print 
the inventory level for each stock number within the block. 


(c) Print the inventory level for each stock number within the data file. 


(d) Print the stock numbers and the corresponding inventory levels for all items having less than some 
specified inventory level. 


(e) Print the stock numbers and the corresponding inventory levels for all items having greater than 
some specified inventory level. 


Modify the program given in Example 8.13 so that any of the following options can be carried out. 


(a) The entire data file can be listed on the console. 

(b) All of the strings beginning with a specified letter will be printed on the console. 
(c) АП of the strings which precede a specified string will be printed. 

(d) АП of the strings that are located beyond a specified string will be printed. 


For each problem listed below rewrite the program so that the data are read from or written onto a data 
file. (Note: some problems will require reading the data from a data file and printing the calculated 
results on the console. Other problems will accept input from the console and write the output onto a 
data file. In a few cases it may be desirable to read the input data from one data file and write the output 
onto another data file.) ^ 


(a) .Averaging of air polution data (Example 4.16) 


(b) Generation of Fibonacci numbers and search for primes (Example 4.18) 
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Compound interest with annual compounding (Problem 4.48(e)) 
A table of functions (Example 5.5) 

Generating a table of damped sinusoidal functions (Problem 5.48) 
Four-letter word unscrambler (Problem 5.49) 

Reordering a list of numbers several different ways (Problem 5.50) 
Alphabetizing a list of names (Problem 5.51) 

Multiplying the elements in two tables (Problem 5.52) 
Generating a table of compound interest factors (Problem 5.53) 
Calculating deviations about an average (Problem 5.54) 
Calculating student grade averages (Problem 5.55) 

Matching countries with their capitals (Problem 5.56) 
Premultiplying a vector by a matrix (Problem 5.57(а)) 

Matrix multiplication (Problem 5.57(b)) 

Generating a table of Legendre polynomials (Problem 5.57(c)) 
Statistical calculations (Problem 5.57(4)) 

Lagrangian interpolation (Problem 5.57(h)) 

A monthly payroll (Example 6.26) 

Simulation of a bouncing ball (Example 6.28) 

A weekly payroll (Problem 6.48) 

Analysis of student grade averages (Problem 6.52(e)) 

Encoding and decoding a line of text (Problem 6.52(/)) 


Write a complete BASIC program that will create and utilize a sequential data file containing names, 
addresses and telephone numbers. Include a provision for each of the following features. 


(a) 
(b) 


(c) 
(d) 
(e) 
(/) 


Add a new record (i.e., a new name, address and telephone number) to the file. 


Find and display a particular record, based upon identifying information entered from: the console 
(e.g., a name, an address or a telephone number). 


Delete a particular record, based upon identifying information entered from the console. 
Alphabetize the records, based upon the last name in each record. 

List (i.e., print) the entire file. 

Terminate the computation. 


Repeat Problem 8.40 utilizing a random data file. Compare with the sequential data file version from a 
standpoint of programming ease and execution speed. 


PART ПІ: Microcomputer BASIC 


Chapter 9 
Enhancements to BASIC 


Virtually all microcomputers support BASIC as a primary programming language. Some micro- 
computers contain a BASIC interpreter within a read-only memory (ROM), so that the language 
actually becomes a part of the computer's internal circuitry. Other machines read the BASIC 
interpreter into the computer's memory from a mass storage device (e.g., a floppy disk) when it is 
needed. In either case, BASIC lends itself very naturally to the microcomputer environment. In fact, 
the availability of BASIC has been a very significant factor in the commercial development of the 
microcomputer marketplace. 

Most microcomputers support very sophisticated versions of BASIC, including many enhance- 
ments that are not present in the more traditional versions of the language. Moreover, these 
sophisticated forms of BASIC are, for the most part, variants of Microsoft BASIC (developed by the 
Microsoft Corporation, Bellevue, Washington). For example, the microcomputers marketed by 
Apple, AT&T, IBM, Tandy (Radio Shack), Texas Instruments, and Zenith, among others, all include 
some variation of Microsoft BASIC. Hence, the material presented in the next four chapters of this 
book will be based upon the features found in Microsoft BASIC (in particular, the version of 
Microsoft BASIC available on the popular IBM Personal Computers). 

The material presented. іп this text is intended to be representative of those features that are 
available on a typical state-of-the-art microcomputer. The reader should understand, however, that 
all of these features may not be implemented on every computer. Furthermore, those features that 
are more universally available may be implemented somewhat differently on each computer. This 
material should therefore be considered to be a general overview of microcomputer BASIC rather 
than a precise reference document. For specific information about a particular version of the 
language, the reader should consult the appropriate programmer's reference manual. 

The more common features of Microsoft BASIC are summarized in Appendix D of this text. 


91 ELEMENTARY LANGUAGE EXTENSIONS 


The different versions of microcomputer BASIC generally allow a greater latitude in the definition 
and use of variables and operators than their more traditional counterparts. Some of the more common 
extensions are discussed below. 


Larger Variable Names 

Most versions of microcomputer BASIC permit variable names that are longer than two 
characters. In fact, some versions of the language do not place any restriction on the maximum 
permissible number of characters. This is a very convenient feature, since it allows variable names to 
correspond more closely to the items that they represent. Usually, however, only the first several 
characters are significant in identifying the variable. Typical values for the number of significant 
characters can range from as few as 2 to as many as 40. On the IBM Personal Computer, variable names 
can consist of as many as 40 characters, all of which are significant. 
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EXAMPLE 9.1 
Several typical variable names are shown below. 
AREA NAME 
SIZE ADDRESS 
TABLE PATIENT 
VECTOR PAYROLL 


VELOCITY TAX 


Many versions of microcomputer BASIC will recognize each of these names as a separate variable. If only the 
first two characters are significant, however, then the variables VECTOR and VELOCITY, PATIENT and 
PAYROLL, and TABLE and TAX will be indistinguishable. 


The use of BASIC keywords (e.g., PRINT, DATA, NEXT, etc.) as variable names must be 
avoided as this will thoroughly confuse the interpreter, most likely resulting in an error message. In 
particular, the programmer must be careful not to use any of the less common keywords (e.g., 
NAME, CHAIN, SWAP, etc.) as variable names. 


Multiple Numeric Data Types 

Most versions of microcomputer BASIC distinguish between integer, real and double-precision 
quantities. 

Integer quantities are positive or negative whole numbers that typically fall within the range of 
—32,768 to 32,767. Such quantities are not subject to roundoff errors. Hence they are useful as 
counters, as subscripts for array elements, as running variables (indices) in FOR-TO loops, ON-GO 
TO statements, etc. Also, it may be desirable to use integer quantities when carrying out certain 
logical tests with the IF-THEN statement. 

Real quantities are ordinary numeric values, as discussed in Chapter 2. A real quantity may or 
may not include a fractional (decimal) component and/or an exponent. Typically, the magnitude of a 
real quantity may be as small as 2.9E—39 and as large as 1.7E+38 (the value 0.0 is also an acceptable 
real quantity). 

Within the computer’s memory real quantities and integer quantities are represented differently, 
even if a fractional component is not included. Real quantities are imprecise (they are subject to 
round-off errors), whereas integer quantities are exact. 

Double-precision quantities are essentially real (single-precision) quantities with a greater num- 
ber of significant figures. Typically, a double-precision quantity will be represented in terms of 16 
significant figures, whereas a real quantity will contain only 6 or 7 significant figures. Also, the letter 
D is used to represent an exponent rather than the letter E. 

Many versions of microcomputer BASIC recognize other numeric data types, such as octal (базе 
8) and hexadecimal (base 16). The use of these data types is, however, beyond the scope of our 
present discussion. 


EXAMPLE 9.2 


Several different types of numbers are shown below. 


Number Type 
16458 Integer or real 
36.55 Real 
-0.666667Е-3 Real 


—0.66666666666666670-3 Double-precision 


When a number is represented by a numeric variable, the number and the variable must be of 
the same type. Thus integer, real, and double-precision quantities must be represented by integer, 
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real, and double-precision variables, respectively. The different variable types are generally identified 
by the last character of the variable name. Typically, an integer variable will end with a percent sign 
(%), a real variable will end with an exclamation point (!), and a double-precision variable will end 
with a pound sign (%). [Also, remember that а string variable must end with a dollar sign ($).] If a 
variable name does not end with one of these special characters, it will be interpreted as a real 
variable. 

These special endings are sometimes referred to as suffixes. The different types of suffixes are 
summarized below. 


Variable Suffix 

Integer 96 

Real (single-precision) ! (or no suffix) 
Double-precision * 

String $ 


EXAMPLE 9.3 


Several BASIC variables and their corresponding data types are given below. 


Variable Data Type 
COUNT% Integer 

МАМЕ$ String 

PAY Real (single-precision) 
ТАХ! Real (single-precision) 


ERROR# Double-precision 
The same name with different suffixes will be interpreted as distinct variables. 


EXAMPLE 9.4 
Suppose that the variables 
А, А8, А% апа Аж 


all appear іп the same BASIC program. They will Бе interpreted as separate, independent variables since they 
have different suffixes and therefore represent different data types. 


Тһе programmer should realize that the memory requirements for the different data types аге 
not the same. Integer quantities require the least amount of memory (typically 2 bytes), whereas 
double-precision quantities require the most (8 bytes). Also, long variable names require more 
memory than short variable names, just as long strings require more memory than short strings. 
These factors should be considered when using a microcomputer, since the amount of memory 
available may be scarce. 

Similar consideration should be given to execution time. Asa rule, programs that make use of integer 
variables run faster than programs containing real or double-precision vatiables. Thus, programs that 
involve a great deal of numerical computation should utilize integer variables wherever practicable. 


Mixed Arithmetic Operations 


When arithmetic operations are carried out between different types of numerical data, the result 
will always be expressed at the highest possible level of precision. Thus, arithmetic operations 
involving integer and real data will produce a real result. Similarly, arithmetic operations involving 
either integer and double-precision data, or real and double-precision data, will produce a double- 
precision result. 
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EXAMPLE 9.5 
In each of the following expressions, assume that 1% =4, R! = —0.2 and D# = 0.16666666D-4. 


Expression Value 

R!+5 4.8 (real) 

1% * R! —0.8 (real) 

3*1% * DX 0.199999992D -3 (double-precision) 
(1+ R)* D 0.133333328 2-5 (double-precision) 


Now consider a numerical assignment statement (1.е., a LET statement) in which the variable оп 
the left and the quantity on the right are of different types. The right-hand quantity will automatically 
be converted to the same data type as the left-hand variable. Normally, this will cause a fractional 
quantity on the right to be rounded if assigned to an integer variable on the left (some versions of 
BASIC will truncate rather than round the fractional quantity). 


EXAMPLE 9.6 қ 
Іп each of the following assignment statements, assume that 1% = 4, R! = —0.2 and D# = 0.16666666D-4. 


Assignment Statement Result 

10 LET № = 3* Е! N% 5—1 

20 LET ЕКАСТ = 1/3 FRACT = 0.3333333 

30 LET FRACT#= 1/3 ЕКАСТЯ = 0.3333333333333333 
40 LET АМ$% = 1%12/3 ANS% = 5 


50 LET RATIO = (1% - R!)/D# RATIO = 2.52Е+5 


(Notice the rounding that results from statement number 10. Truncation would һауе resulted іп N% = 0 rather than 
N% = -1.) 


Recall that a numerical quantity cannot be assigned to a string variable and vice versa. Also, 
remember that the keyword LET is optional in most versions of microcomputer BASIC. 


Additional Operators 

Many versions of microcomputer BASIC include two additional arithmetic operators: integer 
division (\) and integer remainder (MOD). In integer division, each of the two given numbers is first 
rounded to an integer, the division is carried out and the quotient is then truncated. The integer 
remainder operation provides the quantity that remains after an integer division has been performed. 


EXAMPLE 9.7 
Several integer division and integer remainder operations are presented below. 
13\5=2 13 MOD 5=3 
8.6\2.7 = 3 8.6 MOD 2.7=0 
8.3\2.7 = 2 8.3 MOD 2.7=2 
8322-4 83MOD 22-0 


Some of the simpler versions of microcomputer BASIC recognize only integer-type numeric data. In 
such cases the regular division operator (/) will imply integer division (with a truncated quotient). 
Most versions of microcomputer BASIC include the logical operators AND, OR and NOT. The first 
two operators (AND and OR) allow two or more logical operands (i.e., true-false conditions) to be 
combined. The third operator (NOT) is used to negate an operand (i.e., change true to false or false to 
true). These operations allow more complex conditions to be included in the IF-THEN statement. 
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EXAMPLE 9.8 
Shown below are several IF-THEN statements that make use of complex logical conditions. 


(a) 


(b) 


(c) 


10 IF (X«10) AND (Ү>0) THEN 90 
20 PRINT X,Y 

Statement number 90 will be executed next if X has a value less than 10 and Y has a value greater 
than zero. Otherwise, statement number 20 will be executed next. 


50 IF (COUNT>99) OR (N$ = “END”) THEN 175 
60 GO TO 30 

Statement number 175 will be executed next if the value of COUNT exceeds 99 or if “END” has been 
assigned to N$ (or both). If neither condition is true, then statement number 60 will be executed next. 
75 IF NOT ((X<10) AND (Y>0)) THEN 200 
80 PRINT X,Y 

This is just the opposite of example (a). In the present case, statement number 200 will be 
executed if the condition 

(X<10) AND (Y>0) 


is false, і.е., if X>= 10 or if Y<= 0. Otherwise, statement number 80 will be executed next. 
Note that the given IF statement could also have been written: 


75 IF (X>= 10) OR (Y <= 0) THEN 200 


As a practical matter, the NOT operator is used infrequently in actual BASIC programs. 


Some versions of microcomputer BASIC include the additional logical operators XOR (exclusive 
OR), EQV (equivalent) and IMP (implies). Briefly, when used to connect two logical operands, XOR 
will result in a condition that is true only if one of the operands is true and the other false; EQV will 
result in a condition that is true if both operands have the same logical value (either both true or both 
false); and IMP will result in a true condition if both operands are true or if the first operand is false 
(regardless of the value of the second operand). Since these three logical operators are used relatively 
infrequently, we will not discuss them further in this text. 

Typically, the complete hierarchy of arithmetic, relational, and logical operators is as follows: 


Operation Operator 
1. Exponentiation Т ог” 
2. Negation (1.е., preceding a variable ог a number - 

with а minus sign) 
3. Multiplication and division ж / 
4. Integer division | 
5. Integer remainder MOD 
6. Addition and subtraction +. 
7. Relationals cou SS > 
8. Logical NOT NOT 
9: Logical AND AND 

10. Logical OR OR 

11. Logical XOR XOR 

12. Logical EQV EQV 

13. Logical IMP IMP 


The hierarchy may vary, however, from one version of BASIC to another. Within a given 
hierarchical group, the operations are carried out from left to right. 
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Many versions of microcomputer BASIC also include a concatenation operator, which is used to 
combine strings. This operator is usually represented by a plus sign (+), though an ampersand (&) or a 
comma may be used in certain versions of the language. 


EXAMPLE 9.9 


Suppose that the string variables A$ and B$ represent the strings MICRO and COMPUTER, respectively. 
Then the statement 


10 PRINT A$+ B$ 
will cause the (single) string 
MICROCOMPUTER 


to be printed (assuming that the concatenation symbol is the plus sign). 
Similarly, the statement 


20 PRINT “SEVEN” + “TEEN” 
will cause the (single) string 
SEVENTEEN 


to appear. 


Multiple Statements per Line 


Most enhanced versions of BASIC allow multiple statements to appear on the same line. 
Typically, a colon (:) will be used to separate one such statement from another. 


EXAMPLE 9.10 
Several multistatement lines are shown below. 


10 LET А=0.25 : B=0.5 : С=-0.125 
20 PRINT “X="; : INPUT X 
30 FOR 1%-1 TO № : READ А(1%): NEXT 1% 


The use of this feature is convenient for two reasons. First, it allows sequences of related 
statements to be grouped more logically, and second, it contributes to a more efficient use of 
memory. The habitual use of multistatement lines may, however, result in programs that are 
difficult to read and to correct. 


EXAMPLE 9.11 Generating Fibonacci Numbers and Searching for Primes on a Microcomputer 


In Example 4.18 we saw a complete BASIC program that generates a sequence of Fibonacci numbers and 
determines which of them are prime numbers. Figure 9.1 shows another BASIC program, written in Microsoft 
BASIC, that allows the same calculations to be carried out on an IBM Personal Computer. This program makes 
use of several of the language extensions that have been presented earlier.in this chapter. In particular, we see 
the use of long variable names, integer-type variables and multiple statements on several of the lines. Also, the 
logic used to identify prime numbers is somewhat more straightforward, since we are now able to make use of 
the integer remainder (MOD) operation. (Compare lines 110 to 120 in the current program with lines 140 to 160 
in the original program.) 

Execution of this program produces output similar to that shown in Fig. 4.10 of Example 4.18. Figure 9.2 
shows a typical set of output generated by this program (though the output is normally displayed on a TV 
monitor rather than printed on a hard-copy terminal). The user’s responses have been underlined. 

It should be noted that on a microcomputer the largest value that can be assigned to N% (in line 30) is 23, 
since a value greater than 23 will result in a Fibonacci number that exceeds 32,767, the largest permissible 
integer on most micros. This restriction may limit the practical use of this particular program on a micro- 


computer. ү 
Also, notice that the strings that are shown in lines 20, 30, 50, 60 and 140 include both uppercase and 
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10 REM ####* GENERATION OF FIBONACCI NUMBERS AND SEARCH FOR PRIMES w*w** 
20 PRINT "Generation of Fibonacci Numbers and Search for Primes":PRINT 
50 PRINT "How many Fibonacci numbers";:1NPUT NX:PRINT 

40 F1X=1:F2X=1 
SO PRINT "Iz";j1,"Fz";F1X;" (Prime)" 


60 PRINT "Iz";2,"Fz";F2YX;" 
70 FOR INDEX%=3 TO NX 


(Prime)" 


ВО FX-FiX*F2X:RÜDT-SGR(FX) : МАХХ=ВООТ 
90 PRINT "Iz"; INDEXZ, "Fe"; FAX; 


100 FOR DENOM%=2 TO MAXX 


110 REMAINDERX-FX MOD DENOM% 
120 IF REMAINDER%=0 THEN 150 
150 NEXT DENOMZ 

140 PRINT " 

150 PRINT 


160 F24=F1%1F14=F% 
170 NEXT INDEX% 


180 END 


Fig. 9.1 


Generation of Fibonacci Numbers and Search for Primes 


How many Fibonacci numbers? 23 


I= 
I= 
I= 
I= 
I= 
I= 
I= 
I= 
I= 
I= 
I= 
I= 
I= 
I= 
I= 
I= 
I= 
I= 
1= 
I= 
I= 
I= 
I= 


lowercase letters, The distinction between и 
though only in strings. 


WONGUPUHUN= 


F= 
F= 
F= 
F= 
F= 
F= 
F= 
F= 
F= 
F= 
F= 
F= 
F= 
F= 
F= 
F= 
F= 
F= 
F= 
F= 
F= 
F= 
F= 


9.2 ADDITIONAL STATEMENTS 


Most versions of microcomputer BASIC include a 


1 (Prime) 
1 (Prime) 
2 (Prime) 
$ (Prime) 
5 (Prime) 
B 


15 (Prime) 


89 (Prime) 


233 (Prime) 


1597 (Prime) 


17711 
28657 (Prime) 


Fig. 9.2 


ppercase and lowercase is recognized by most microcomputers, 


number of useful and convenient statements 


that are not available in the traditional versions of the language. Several of the more common 
additional statements are discussed below. 
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DEFINT, DEFSNG, DEFDBL, and DEFSTR 


In some situations it is convenient to define several different variables of a particular data type. 
This сап be accomplished with the DEFINT, DEFSNG, DEFDBL, апа DEFSTR statements (for 
integer, single-precision, double-precision, and string data, respectively), provided all the variable 
names of a given type begin with the same first letter. It is also possible to specify a range of first 
letters, as illustrated below. 


EXAMPLE 9.12 
A BASIC program contains the following statements. 


10 DEFINT I 
20 DEFDBL X-Z 
30 DEFSTR A-C,N 


Statement number 10 states that all variables beginning with the letter I will be integer variables. Statement 
number 20 causes all variables beginning with X, Y and Z to be double-precision variables, and statement 
number 30 defines all variables beginning with A, B, C and N as string variables. (Note that suffixes are not 
required for any of these variables.) 


It should be understood that variable names which include a suffix take precedence over those 
variable names that are defined by a DEF-type statement. 


IF-THEN 


Most versions of microcomputer BASIC include an expanded form of the IF-THEN statement in 
which one or more independent statements may appear after the keyword THEN, provided they are 
all on the same line. These statements will be executed if the given logical condition is satisfied. 
Otherwise, the statement beginning on the following line will be executed next. 


EXAMPLE 9.13 
A BASIC program contains the following statements. 


50 IF ERROR>0.001 THEN PRINT ERROR 
60 LET Х-ХІ 


The IF-THEN statement will cause the value of ERROR to be printed if it exceeds 0.001. Otherwise, control 
will be passed directly to line number 60. 


EXAMPLE 9.14 
A BASIC program contains the following statements. 
200 IF FLAG=1 THEN А=10 : C$- BLUE : GO TO 35 
210 PRINT A 


If FLAG has a value of 1, then the variables A and C$ will be assigned the values 10 and BLUE, respectively, 
and control will be transferred to line number 35. Otherwise, line number 210 will be executed next. (Note that 


the keyword THEN is followed by three separate statements.) 


IF-THEN-ELSE 
Some versions of microcomputer BASIC allow an ELSE clause to be included in the IF-THEN 


statement. Thus, the statement (or statements) following THEN will be executed if the given logical 
condition is satisfied. Otherwise, the statement (or statements) following ELSE will be executed. 


EXAMPLE 9.15 
A BASIC program contains the following IF-THEN-ELSE statement. 


80 IF Z<0 THEN 50 ELSE 120 
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If the value of Z is less than zero, then the statement on line number 50 will be executed next. Otherwise, the 
statement on line number 120 will be executed next. 


EXAMPLE 9.16 
Now consider the BASIC statement 
80 IF DIFF<0.001 THEN PRINT ANS: GO TO 300: ELSE X = X1: GO TO 35 


The value of ANS will be printed and control will be transferred to line number 300 if the value of DIFF is less 
than 0.001. Otherwise, the current value of X1 is assigned to X and control is transferred to line number 35. 


An IF-THEN-ELSE statement can usually be nested within other IF-THEN-ELSE statements, 
though the logic can be tricky and the results can turn out differently than the programmer may 
expect. The reader is referred to his or her particular programmer’s reference manual for more 
information on nested IF-THEN-ELSE statements. 

Finally, it should be mentioned that the use of the expanded IF-THEN-ELSE statements can 
often improve the logical clarity of a BASIC program. This is accomplished by writing the 
conditional branches in an orderly, sequential manner, thus reducing the number of GO TO 
statements that might otherwise be present. The organization of programs in this manner is referred 
to as structured programming. 


ON-GOSUB 


The ON-GOSUB statement is available in many versions of microcomputer BASIC. This 
statement is similar to the ON-GO TO statement except that control is transferred to a subroutine 
rather than to another part of the main program. Upon completion of the subroutine, control is 
transferred back to the statement following ON-GOSUB. 


EXAMPLE 9.17 
A BASIC program contains the statements 


100 ON FLAG GOSUB 800, 1000, 1200 
110 PRINT NAME$ 


The ON-GOSUB statement will result in a transfer to one of three different subroutines, depending on the value 
assigned to FLAG, If FLAG = 1, control will be transferred to the subroutine beginning on line 800. Similarly, 
control will be transferred to the subroutine beginning on line 1000 if FLAG = 2 and to the subroutine beginning 
on line 1200 if FLAG = 3. Note that statement number 110 (PRINT NAMES) will be executed after the 
subroutine, regardless of which subroutine is chosen. 


ON ERROR GO TO 


Most versions of microcomputer BASIC recognize a number of different types of errors that can 
occur while a program is being interpreted or being run. The ON ERROR GO TO statement is used 
to carry out error correction once an error has occurred. In particular, the ON ERROR GO TO 
statement automatically transfers control to a remote part of the program when an error has been 
detected, provided the error detection occurs after the ON ERROR GO TO statement. This is 
known as error trapping. It allows error messages or error correction routines to be included within 


the program. Usually, such error traps make use of the RESUME statement in conjunction with the 
ON ERROR GO'TO statement (see below). 


RESUME 


The RESUME statement is used to indicate where execution should resume after an error has 
been detected and an error-correction routine has been carried out. 
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EXAMPLE 9.18 
Тһе error-trapping portion of a BASIC program is shown below. 
10 ON ERROR GO TO 800 


50 PRINT "ACCOUNT NUMBER: "; 
60 INPUT ACCTNO 


800 PRINT “INPUT ERROR—TRY AGAIN” 
810 RESUME 50 


Now suppose that incorrect input data is entered during execution of the program (by entering a string instead of 
a number in line 60, for example). This will cause a branch to line 800, resulting in the generation of an error 
message. Control will then return to line 50 for another attempt to read the data correctly. 


We will say more about the use of the ON ERROR GO TO statement and the RESUME 
statement in Chapter 11. (See Section 11.3.) 


WHILE and WEND 

Many versions of microcomputer BASIC include a conditional looping feature in which a 
sequence of statements will be executed repeatedly as long as some particular condition remains true. 
The WHILE and WEND statements are used to define the beginning and end, respectively, of the 
conditional loop. The condition that must be satisfied (i.e., remain true) is included in the WHILE 
statement. Within the loop, there must be a provision for eventually changing the value of the 
condition; otherwise, the loop will continue indefinitely. 


EXAMPLE 9.19 


Shown below is a conditional loop that will add the elements of a numeric array, X, until a zero value is 
encountered. 


10 DIM X(100) 


100 LET SUM=0: I=1 

110 WHILE Х(1)>0 

120 SUM = SUM + X(I) : 1=1+1 

130 WEND 
In this example the conditional loop begins with line number 110 and ends with line number 130, Note the use of 
multiple statements in lines 100 and 120, Also, notice that the keyword LET has been omitted from line 120. 

It should be noted that this example will generate an error if all of the array elements are positive, since the 

loop will continue to execute until the array subscript (I) exceeds the upper bound (100) specified in the DIM 


statement. 


INPUT 

In many versions of microcomputer BASIC, the INPUT statement can be used to print a prompt 
message (i.e., а string) prior to entering input data, To do so, the message must follow the keyword 
INPUT and it must be enclosed in quotation marks. Usually a semicolon will be required after the 


message in order to separate the string from the list of input variables. 


EXAMPLE 9.20 
Consider the statement 
10 INPUT “WHAT IS YOUR NAME”; N$ 


Execution of this statement will cause the message 
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› 


WHAT IS YOUR МАМЕ? 


to appear on the terminal. The response (i.e., the string assigned to N$) is then typed on the same line, 
immediately after the question mark. Thus, if the user chooses to reply by typing SANTA CLAUS, the entire 


.line appears as 
WHAT IS YOUR NAME? SANTA CLAUS 


(Note that the user's response has been underlined.) ; 

In some versions of microcomputer BASIC, it is possible to suppress the question mark after the prompt 
message. This can usually be accomplished by placing a comma rather than a semicolon at the end of the prompt 
message. 


EXAMPLE 9.21 


Here is a variation of the INPUT statement presented in Example 9.20. In this example, the question mark 
following the prompt statement will be suppressed. 


10 INPUT “PLEASE ENTER YOUR NAME: ”,N$ 
Execution of this statement will cause the message 
PLEASE ENTER YOUR NAME: 


to appear on the terminal. If the user again responds by entering the name SANTA CLAUS, the entire line will 
appear as 


PLEASE ENTER YOUR NAME: SANTA CLAUS 


(The user's response is again underlined.) 
Notice that the prompt message has been modified to appear as a statement rather than a question since 
there will be no question mark associated with this prompt. 


INKEY$ and INPUT$ 


INKEY$ and INPUTS are functions (not statements) that are used to enter single-character or 
multicharacter strings, respectively, from the keyboard. In order to use these functions properly, the 
newly entered string must be assigned to an appropriate string variable. Unlike the INPUT 
statement, the use of these functions does not generate a question mark requesting input data. The 
input string is simply entered from the keyboard without pressing the return key. The characters 
being entered will not be displayed on the terminal. 

The INKEY$ and INPUTS functions are sometimes used to create a pause in the execution of a 
program. Thus, program execution will temporarily be suspended when one of these functions is 
encountered until the required string has been entered. INKEY$ requires a single-character string, 
whereas INPUTS requires a string whose length is specified as a part of the function reference. 

Section 9.3 contain a more general discussion of functions in microcomputer BASIC. 


EXAMPLE 9.22 


A microcomputer BASIC program contains a number of PRINT statements that are intended to provide 
instructions for whoever uses the program. These instructions will fill an entire TV-monitor screen (and hence 
disappear as soon as the screen is cleared). In order to allow ample time for the user to read the instructions, the 
print statements are followed by a statement that makes use of the INKEYS function. Hence, the instructions 


will remain on the screen until the user presses a key, thus causing a single-character string to be entered into 
the computer. 


A portion of the program is shown below. 
10 PRINT TAB (34); "INSTRUCTIONS" 


190 PRINT TAB(26); “(PRESS ANY KEY TO CONTINUE)" 
200 A$ = INKEY$ : IF А5-“” THEN 200 
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Notice that the program will continue to loop through statement 200 until some key is pressed, thus causing the 
required single-character string to be entered and assigned to the string. 
Here is another way to accomplish the same thing, using the INPUT$ function. 


20 PRINT TAB (34); “INSTRUCTIONS” 


190 PRINT TAB(26); “(PRESS ANY KEY TO CONTINUE)” 
200 A$-INPUTS$(1) 
In this case, the program will come to a standstill until a single-character string is entered from the keyboard. 


(The 1 that appears in parentheses following INPUTS specifies that the input string will consist of one character.) 
We will say more about these types of programming techniques in Chapters 10 and 11. 


PRINT USING 

The PRINT USING statement is included in most versions of microcomputer BASIC. It allows 
printed output to be formatted, thus specifying the appearance and location of each data item. Both 
string and numeric data can be formatted, though the feature is generally more useful for numeric 


data. 

There are several different ways to format output data with the print using statement. All of 
them involve placing a format string immediately after the keyword PRINT USING and before the 
list of output items. A semicolon must appear between the format string and the first output item. 


EXAMPLE 9.23 
Here is the most common form of the PRINT USING statement. 


100 PRINT USING “##.## ";A,B,C 


In this example the format string is “##.## ”, which specifies a numeric field containing a decimal point, with 
not more than two digits on each side. Fractions (decimals) extending beyond two digits will be rounded. The 
space at the end of the format string is required to produce a separation between the printed values of 
A, B and C. 

Now suppose that the variables 
respectively. Then the following line o 


17.67 —5.38 40.00 


A, B and C have been assigned the values 17.667, —5.38 and 40, 
f output will be generated by the above PRINT USING statement. 


EXAMPLE 9.24 
Another form of the PRINT USING statement is shown below. 


200 PRINT USING "sse"; VALUE 


the format string. They specify exponential notation. Thus, 


Notice the four upward-pointing arrows at the end of 
PRINT USING statement will generate the value 


if VALUE represents the number 856.07, the above 


8.561E+02 
Similarly, if VALUE has been assigned the number —856.07, then the PRINT USING statement will generate 


—8.561Е+02 


ЕХАМРГЕ 9.25 
This example illustrates how commas can be placed 
30 PRINT USING “ИЯ, . AP'S COST# 


The comma preceding the decimal point in the format string will cause commas to be placed in the 
whole-number part of each output quantity. Thus, if the double-precision variable COST# has a value of 


15673088.209, the above statement will generate the following output. 
15,673,088.21 


in an output number. 
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Note that the whole-number portion is broken up into groups of three digits, starting at the decimal point and 


moving to the left. ord 
This feature is useful for financial reports and other types of business applications. 


There are many other variations of the PRINT USING statement that are too detailed to be 
presented here. The reader is referred to a programmer's reference manual for more specific 


information. 


LPRINT and LPRINT USING 

Some versions of microcomputer BASIC include the LPRINT statement, which is used 
specifically to print output data onto'a line printer or a hard-copy terminal (rather than d TV 
monitor). The statement is identical to the PRINT statement except for the use of the keyword 
LPRINT rather than PRINT. 

Those versions of microcomputer BASIC that support the PRINT USING statement may also 
include an analogous LPRINT USING statement. 


EXAMPLE 9.26 
A BASIC program contains the following two print statements. 


200 PRINT A,B,C 
210 LPRINT A,B,C 


The first statement will cause the values of A, B and C to be displayed on a TV monitor, whereas the second 
statement will cause these same values to be printed on a hard-copy terminal. 


. General Comments 


The reader is reminded that the statements presented above are intended to be representative of 
the more commonly available versions of microcomputer BASIC. They may or may not be available 
in a particular version of the language. If they are available, the details may be somewhat 
different. ы 

Most versions of microcomputer BASIC also include additional statements not discussed above. 
Appendix D contains a more extensive summary of the statements that are commonly available in 
most versions of Microsoft BASIC. The reader is again referred to the programmer’s reference 
manual for his or her particular version of the language for more detailed information. 


EXAMPLE 9.27 Search for a Maximum оп a Microcomputer 


Now let us return to a programming example that we considered previously in Example 6.6. Now, however, 
we will make use of a number of new features that are available in Microsoft BASIC as implemented on the 
IBM Personal Computer. 

Figure 9.3 presents the microcomputer version of the program. The logic is essentially the same as that 
described in Example 6.6, though the variable names have been expanded, and some different: program 
constructs are used. In particular, the variables that were formerly called X1, X2, X3 and X4 are now called 
LEFT, XL, XR and RIGHT, respectively. Also, Y2 and Y3 are now called YL and YR, D is now called 
DISTANCE, and I is now called COUNT%. These variable names have been changed so that they are more 
descriptive of the actual problem. The program is somewhat more general than that presented in Example 6.6 in 
that the maximum number of iterations is now an input variable (MAXCOUNT%) rather than a constant that is 
built into the program. 

In addition, this program contains a number of the new statements that have just been described. 
Specifically, we see the use of DEFSNG (line 30), extended IF-THEN (line 160), nested IF-THEN-ELSE (line 230), 
a WHILE-WEND loop (lines 150 through 240), expanded use of the INPUT statement (lines 70 through 100) and the 
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10 REM SEARCH FOR А MAXIMUM OF THE FUNCTION Y = X ж COS(X) 
20 7 

30 DEFSNG A-Z 

40 DEF FNY(X) = X#COS(X) 


50 PRINT "Search for a Maximum of the Function y = x * cos(x)" : PRINT 
70 INPUT "Left boundary : ",LEFT 

80 INPUT "Right boundary: ",RIGHT 

ФО INPUT "Minimum distance between interior points : ",DISTANCE 

100 INPUT "Maximum number of iterations : ",МАХСОУМТХ : PRINT 

110 COUNTX = O 


130 REM BEGIN LOOP 


150 WHILE (RIGHT - LEFT) > 3 * DISTANCE 

160 IF COUNT% = MAXCOUNT% THEN PRINT "Too many iterations" : END ` 

170 COUNTX - COUNTX * 1 

180 XL = LEFT + .5 * (RIGHT - LEFT - DISTANCE) 

190 XR = XL + DISTANCE 

200 YL = FNY(XL) 

210 YR = FNY(XR) 

220 GOSUB 560 

250 IF YL = УВ ТНЕМ 280 ELSE IF YL < УВ ТНЕМ LEFT = XL ELSE RIGHT = ХВ 
240 WEND 


260 REM COMPUTE AND PRINT FINAL SOLUTION 


280 X = .5 ж (XL + XR) 

290 PRINT : PRINT "Xmax = "3 : PRINT USING "##.###### iX; 

300 PRINT BPC(12);"Ymax = "j 1 PRINT USING "атыны "JFNY(X) 
310 PRINT 1 PRINT “Number of iterations = "$ COUNT 

320 END 


340 REM SUBROUTINE TO PRINT THE RESULTS OF EACH ITERATION 
350 ' 
360 PRINT : PRINT ,YL,YR 
370 PRINT LEFT,XL,XR,RIGHT 
380 RETURN 
390 END 
Fig. 9.3 


PRINT USING statement (lines 290 and 300). The use of these statements results in a program that is shorter and 
more concise than the program presented earlier in Fig. 6.5. : А 

There аге а few other features of this program that should be pointed out. Notice that several lines are 
blank except for an apostrophe. The apostrophe is another way of writing a remark in Microsoft BASIC 
(everything following an apostrophe is considered to be a remark). In the present example, these ‘empty 
remarks are just a way of introducing blank lines to separate different sections of the program. (The interpreter 
will not accept numbered lines that are totally blank.) is n 

In addition, notice that the END statement appears in three different places within the program (lines 160, 
320 and 390). In the first two lines, the END statement is used in place of the STOP statement in order to 
suppress an unwanted message that is generated by STOP. In the last line, END is used in the more traditional 
manner. Curiously, END is not required at the (physical) end of a program in Microsoft BASIC. Hence, its 
appearance at the end of this program is unnecessary. : ed 

Figure 9.4 shows the output that is generated when this program is executed, using input parameters that 
are essentially the same as those used in Example 6.6 (though fewer iterations are allowed this time, since we 
already know how many will be required). Normally, this output will be seen on a TV monitor. Note that the 
input data have been underlined. em 

It is interesting to compare this output with that shown in Fig. 6.6. 
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Search for a Maximum of the Function 


Left boundary : 0 


Right boundarys se 
Minimum distance b 


14159 
etween interior points : 0.0001 


Maximum number of iterations : 20 


„7855725 


„7853725 


. 7853725 


+ 7853725 


. 8344583 


„8590012 


.8590012 


.8590012 


.8590012 


.8590012 


.8597682 


.8601517 


8.063497E-05 


1.570745 


.5555565 
.7855725 


. 4508655 
1.178059 


.5454582 
.9817156 


. 5605342 
.8855441 


a 5604048 
. 8344583 


.5610945 
„8590012 


„5609718 
„8712727 


„5610725 
„865157 


.5610955 
„8620691 


.5610965 
. 8605352 


„561076 
„8597682 


25610963 
„8501517 


«5610963 
„8605454 


Хтах = 0.860393 


Number of iterations = 


14 


1.570845 


5553716 
„7854725 


„4507949 
1.178159 


„5454121 
.9818156 


. 5605293 
. 8836441 


„5604101 
. 8345583 


.5610948 
. 8591012 


.5609695 
.8715727 


.5610715 
. 865237 


«5610929 
. 8621691 


.5610965 
. 8606352 


„5610961 
. 8598682 


‚5610964 
„8502518 


‚5610963 
‚8604455 


y = x * cos(x) 


-7.647047E-05 
3.14159 


1.570845 


1.570845 


1.178159 


.9818156 


.8836441 


. 8836441 


. 8836441 


„8715727 


„865237 


„8621691 


. 8606352 


. 8606352 


„8606352 


Ymax = 0.561096 


Fig. 9.4 


9.33 ADDITIONAL LIBRARY FUNCTIONS 


[CHAP. 9 


Most versions of microcomputer BASIC include a number of special library functions in addition 
to those customarily found іп the more traditional versions of the language. We һауе 
already discussed two of these new functions—INKEY$ and INPUT$—in Section 9.2. Several of the 
more commonly used microcomputer functions are summarized below. Notice that most of these 
functions provide string-related capabilities. 
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Function 
CDBL(e) 


CINT(e) 


CSNG(e) 


FRE(n) 


INKEY$ 


INPUT$(n) 


INSTR(s1,s2) 


LEFT$(s,n) 


LEN(s) 


MID$(s,m,n) 


RIGHTS(s,n) 


SPACES(n) 


STR$(e) 


STRING$(m,n) 


VAL 
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Purpose 

Converts the value of the 
numeric expression e to 
double-precision. 


Converts (rounds) the value 
of the numeric expression 
e to integer. 


Converts the value of the 
numeric expression е to 
single-precision. 


Returns the number of 
unused bytes of memory 
(n is a dummy variable). 


Returns a character from 
the keyboard (the character 
will not be displayed). 


Returns an n-character 
string from the keyboard 
(the string will not be 
displayed). 

Returns the position where 


one string (s2) is found 
within another string ($1). 


Returns the leftmost n 
characters of the string s. 


Returns the number of 
characters in the string s. 


Returns a portion of string 
s, n characters long, 
beginning with character 
number m. 


Returns the rightmost n 
characters of the string s. 


Returns a sequence of n 
blank spaces. 


Returns a string representation 
of the numeric expression е. 


Returns an m-character 
string of characters whose 
ASCII code is n 

(n cannot exceed 255). 


Returns a numeric representation 
of the string s (assuming 

that s consists of digits, 

preceded by an optional sign). 


Example 
Ys = CDBL(3*X!-2*Y!) 


Y% = CINT(3*X!-2#Y!) 
Y!= CSNG(*A#/B#) 
PRINT FRE(0) 

Y$ = INKEY$ 


Y$ = INPUT$(3) 
(Will return a 
three-character string) 


Y = INSTR(A$,B$) 
(IF A$= “BASIC” and 
B$= “AS”, У=2) 


Y$ = LEFT$(A$,4) 
(If A$ = “COMPUTER”, 
Y$ = “СОМР”) 


Y = LEN(A$) 
(If A$ = “COMPUTER”, 
Y=8) 


Y$ = MID(AS,3,5) 
(IF AS = "COMPUTER", 
Y$ = “MPUTE”) 


Y$ = RIGHTS(AS,4) 
(If A$ = “COMPUTER”, 
Y$ = "UTER") 


PRINT X;SPACES(5);Y 
(The values of X and 

Y will be separated 

by five blank spaces) 


Y$ = STRS(K + 1) 
(Ү$= “6” if K=5) 
Y$ = STRING$(8,42) 
(Y$- “жжжжжжжж”, 
because CHR$(42) 
е 

Y = VAL(N$) 

(Y = 900 if 

N$ = “900”) 
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Some additional microcomputer library functions will be discussed in later sections of this book in 
conjunction with other topics. Appendix D contains a summary of all commonly used library 
functions in Microsoft BASIC. 


EXAMPLE 9.28 Generating Piglatin on a Microcomputer 
In Example 6.15 we developed a BASIC program to generate piglatin from a line of English text. Let us 
now repeat this example using several of the functions that are unique to Microsoft BASIC. 


The Program Outline 
In order to best utilize these new functions, we will use a somewhat different strategy than that employed in 
Example 6.15. Before describing the computational scheme, however, let us introduce the following variables. 


ENGLISH$ = A string representing the given line of English text 

TAG$ = The first three letters in the original line of English text 

POINTER(I) = An array element that represents the location of the space after the Ith word in the given line 
of English text 


FOR COLUMN = 1 


READ ENGLISH$ TO LENGTH 


TAG$ - 
LEFT$(ENGLISH$,3) 


СНАКАСТЕК$ = 
MID$(ENGLISH$, COLUMN, 1) 


Is 
CHARACTER$ = “”? 


Is 
TAG$ = “END” 


ов 
TAG$ = “end”? 


LENGTH = 
LEN(ENGLISH$) 


POINTER (WORDS) = 
COLUMN 


POINTERI0) = 0 


WORDS = 1 WORDS = WORDS + 1 


NEXT COLUMN 


nne. fe an wisi SNT Sal 


Fig. 9.5 (continues on next page) 
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FOR COUNT =1 
TO WORDS 


START = 
POINTER(COUNT-1)+1 


WORDLENGTH = 
POINTER(COUNT) — 
POINTER(COUNT-1)- 1 


'ORD$ = 


Wwe 
MID$(ENGLISH$,START, WORDLENGTH) 


LATIN$ = 
MID$(WORD$,2, WORDLENGTH - 1) + 
LEFT$(WORD$,1) + “a” 


PRINT LATIN$ 


ЕЕ Est SEE eee 
a eae Z sJ 


NEXT COUNT 


Fig. 9.5 (continued) 

LENGTH = The number of characters in the given line of English text 
WORDS = The number of words in the given line of English text 
COLUMN = A counter that indicates column position within the given line of English text 
CHARACTER$ = The character that is in a particular column within the given line of English text 
COUNT = A word counter for the-given line of English text 
WORD$ = A string representing a word within the given line of English text 
START = The column number indicating the start (first letter) of a word within the given line of 

English text 
WORDLENGTH - The length (number of characters) of a word within the given line of English text 
LATIN$ — A string representing the piglatin equivalent of a word within the given line of English text 


The computation can now be described as follows. 
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1. Read a line of English text and assign it to ENGLISHS. 


2. Test for a stopping condition by determining if the first three letters of the English text, i.e., 


ТАС$ = LEFT$(ENGLISH$,3) 


are “END” or “end”. If so, terminate the computation. Otherwise, continue below. 


3. Find the end of each word and count the number of words, using the following procedure. 


(a) Locate the position of the blahk space after each individual word within the line of English text 
and assign its value to POINTER. Thus, each value of POINTER will identify the end of the 
corresponding word. For example, POINTER(1) will indicate the end of the first word (beginning 
of the second word), POINTER(2) will indicate the end of the second word (beginning of the third 
word), etc. Note that POINTER(0) will be assigned a value of 0, indicating that the first word 


begins just beyond column zero. 
(b) Each time a space is found, increment the word counter (WORDS = WORDS + 1, where WORDS 
is initially assigned a value of 1). 


4. Extract each word from the original line of text and convert it to piglatin. This can be accomplished as 
follows. 


(a) Begin one position beyond the last value of POINTER, i.e., 
START = POINTER(COUNT-1) + 1) 
(b) Determine the wordlength as 
WORDLENGTH = POINTER(COUNT) - POINTER(COUNT - 1)- 1 


(c) Extract the English word as 
WORDS = MID$(ENGLISH$,START,WORLDLENGTH) 
(d) Form the equivalent piglatin word as 
LATIN$ = MID$(WORD$,2, WORDLENGTH-1) + LEFT$(WORD$, 1) + “а” 


5. Print the piglatin word. 


6. Continue until all of the words within the given line of text have been converted and printed. Then go 
back to step 1 and start all over. 


A flowchart of the procedure is shown in Fig. 9.5. 


The BASIC Program 

Figure 9.6 contains the actual BASIC program. Notice the use of several new library functions; namely, 
LEFTS (lines 100 and 290), LEN (line 120) and MID$ (lines 180, 280 and 290). Also, notice the use of the 
concatenation operation in line 290. And finally, note that the program comments are all written with 
apostrophes rather than the REM statement (lines 10, 60, 140 and 230). 

This program is about the same length as the piglatin generator written in traditional BASIC, shown in Fig. 
6.9 (as a part of Example 6.15). Thus, the ase of the new microcomputer features has not shortened the program 
significantly. The logic behind the current program is, however, more straightforward. The reader should carefully 
compare the two programs on this basis. 

Figure 9.7 shows the output that is generated when the program is executed. Note that the English text that 
is entered as input is the same as in Example 6.15, except for the use of both uppercase and lowercase letters. 
ae input data are again underlined.) The reader should compare Figs. 9.7 and 6.10 to see the КЕ. 

епсе. 
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10 ‘### MICROCOMPUTER PIGLATIN GENERATOR жж 


$0 DIM POINTER (80) 
40 PRINT "Welcome to Microcomputer Piglatin" 1 PRINT 


60 “жж READ A LINE OF ENGLISH TEXT 


80 PRINT "Enter a line of text below: " 

90 INPUT "",ENGLISH$ 

100 TAGS = LEFT$(ENGLISH$,3) 

110 IF TAG# = "END" OR TAGS = "end" THEN END 
120 LENGTH = LEN(ENGLISH$) 


140 “жж FIND THE END OF EACH WORD AND COUNT THE NUMBER OF WORDS 


160 POINTER(O) = 0 : WORDS = 1 

170 FOR COLUMN = 1 TO LENGTH 

180 CHARACTER$ = MID$(ENGLISH$,COLUMN,1) 

170 IF CHARACTERS = " " THEN POINTER (WORDS) = COLUMN : WORDS = WORDS + 1 
200 NEXT COLUMN 

210 POINTER(WORDS) = LENGTH + 1 


230 “жжж CONVERT EACH WORD TO PIGLATIN AND PRINT 


250 FOR COUNT = 1 TO WORDS 

260 START = POINTER(COUNT-1) + 1 

270 WORDLENGTH = POINTER(COUNT) - POINTER(COUNT-1) - 1 

280 WORD$ = MID$(ENGLISH$,START,WORDLENGTH) 

290 LATIN$ = MID$(WORD$,2,WORDLENGTH-1) + LEFT#(WORD#,1) + "a" | 
300 PRINT LATIN$; 

$10 NEXT COUNT 

320 PRINT : PRINT 

550 GOTO 80 

340 END 


Fig. 9.6 


Welcome to Microcomputer Piglatin 


Enter a line of text below: 


this is a piglatin generator 


hista sia aa iglatinpa eneratorga 


Enter a line of text below: 
HAT SORT OF GARBLED MESSAGE IS THIS ANYHOW 


W! 
HATWa ORTSa ҒОа ARBLEDGa ESSAGEMa біа HISTa NYHOWAa 


Enter a line of text below: 
Now is thg time for all good men to come to the aid of their countr 


онМа sia heta imeta orfa llaa oodga enma ota omeca ota heta idaa foa heirta 


ountryca 


Enter a line of text below: 
and 


Fig. 9.7 
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9.4 MICROCOMPUTER DATA FILES 


One of the most important types of microcomputer applications involves the use of data files 
under control of a.BASIC program. Most versions of microcomputer BASIC support both sequential 
and random data files, though there is considerable variation in the way these files are accessed from 
one version of BASIC to another. Moreover, the file management procedures used with micro- 
computers are generally not the same as the large-computer file management procedures presented 
in Chapter 8. (Note that the use of microcomputer data files requires some type of auxiliary mass 
storage device, such as a floppy disk, hard disk or solid-state memory module.) 

In this section we present several simple examples illustrating the use of data files using the 
version of Microsoft BASIC included with the IBM Personal Computer. The reader should 
understand, however, that these examples are merely representative of microcomputer data file 
applications. The reader should consult the programmer's reference manual for his or her particular 
microcomputer to determine the appropriate file management procedures. 


Sequential Data Files 

With most microcomputers, a sequential data file consists of multiple sets of data items, 
arranged sequentially, without regard to line numbers. (This differs from the sequential data files 
described in Chapter 8, where line numbers were an integral part of the data.) Such files are created, 
read and modified under direct program control. The manner in which this is accomplished is 
illustrated in the following examples. 


EXAMPLE 9.29 Creating a Sequential Data File 


Figure 9.8 shows an IBM Personal Computer BASIC program that creates a sequential data file containing 
the student names and examination scores shown in Fig. 8.1. (Note that the sequential data file is now being 
created by a BASIC program rather than typed directly into the computer, as described in Chapter 8.) 

Line 30 of this program causes a sequential data file called SCORES to be opened in the output (*O") 
mode and assigned to data channel number 1. Lines 40 and 50 allow two strings (TITLE$ and ТЕВМ$) to be 
entered from the keyboard. These strings are then written onto the data file in lines 60 and 70. Similar data 
transfers occur in lines 80, 100, 110 and 120. This procedure continues repeatedly until the word "END" (or 
"end") is entered in place of a student name. The data file is then closed and the computation terminates. 

When running the program, the course title and the term (e.g., Comp Sci 141, Fall 1985) are entered on 
separate lines, followed by carriage returns. The same is true of the student names. Each student name is 
entered on one line, followed by five exam scores on another line. All five exam scores are entered on the same 
line, separated by commas and ending with a carriage return. 

Figure 9.9 shows the contents of the data file that is produced when this program is run, using the student 
names and exam scores given in Fig. 8.1. This data file will be called SCORES. Compare Fig. 9.9 with the 
corresponding data file shown at the bottom of Fig. 8.1. 


10 REM 3x39 CREATE А SEQUENTIAL DATA FILE 3xxxx 
20 REM (STUDENT EXAMINATION SCORES) 
50 OPEN "O",1,"SCORES" 

40 INFUT "Course title";TITLE$ 

SO INPUT "Term"; TERMS 

60 PRINT &1,TITLE$ 

70 PRINT &1,TERM$ 

80 PRINT: INPUT "Мате"; № 

90 IF N$="END" DR N$="end" THEN 140 

100 INPUT "Exam scores";C1,C2,C3,C4,C5 

110 PRINT #1,N¢ 

120 PRINT #1,C1;C2;C3;C4;c5 

130 BOTO 80 

140 CLOSE 

150 END 


Fig. 9.8 
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Comp Sci 141 


Fall 1985 

Adams ВЕ 

45 80 80 95 55 
Brown P 

60 50.70 75 55 
Davis КА 

40 50 10 45 60 
Fisher E K. 


05$ 70. £0 
Hamilton 5 P 

90 85 100 95 90 
Jones J J 

95 90 80 95 85 


Ludwig C W 

55 50 55 45 45 
Dsborne Т 

75 60 75 60 70 
Prince W F 


85 75 60 85 90 
Richards Е М 
50 60 50 55 65 


Smith МС 

70 60. 75 70 55 
Thomas В А 

10 25 55 20 50 
Wolfe H 

25 40 65 75 85 
Zorba DR 

65 80 70 100 60 

Fig. 9.9 


It should be understood that this information will be written to an auxiliary storage device (e.g., a floppy 
disk) rather than the printer. Once the sequential data file has been created, however, its contents can be listed 
on a printer. This is how Fig. 9.9 was generated. 


The general procedure for updating a sequential data file is to copy the contents of the old data 
file onto a new data file, incorporating any additions or changes in the data during the copy 
procedure. After the updating has been completed, the old file is deleted (“КІЛ ей”), and the new 


(updated) file is given the name of the old file. 


EXAMPLE 9.30 Processing Student Examination Scores оп а Microcomputer 


IBM Personal Computer BASIC program that allows us to update the sequential 


In Figure 9.10, we see an gene 
9.29. (This program parallels the traditional BASIC program shown in Fig. 8.5, 


data file created in Example 


which has the same purpose.) Е š ` 
In this program, line 40 causes the old data file, called SCORES, to be opened in the input (“Г”) mode and 


assigned to data channel number 1. Similarly, line 50 causes a new file, called UPDATE, to be opened in the 
output (*O") mode and assigned to data channel number 2. The course title (TITLES) and the term (TERM$) 
are then read from SCORES (lines 60 and 70), displayed on the TV monitor (line 80) and written onto UPDATE 
(line 90). Lines 100 and 110 allow the user to specify the exam number and whether or not to compute an 
average score for each student. We then encounter a loop, ranging from lines 120 to 240, in which the following 
steps are carried out for each student. 


1. The student's name and previous exam scores are read from SCORES (lines 120 and 130). 


2. The student's name is then displayed on the TV monitor (line 140) and a new score is entered from the 


keyboard (line 150). 
3. The student's name and exam scores are then written onto UPD. 


computed (lines 160 through 200). 
4. The calculated average is displayed on the TV monitor (line 210) and written onto UPDATE (line 220). 


ATE and an (optional) average score is 


10 REM жжжжжж PROGRAM TO PROCESS STUDENT EXAMINATION SCORES ###### 


20 REM 3 


DIM C¢ 
OPEN " 
OPEN " 
INPUT 
INPUT 
PRINT 


PRINT: 
PRINT: 


15) 
1",1,"SCORES" 
0",2,"UPDATE" 
#1,TITLES 
#1, TERMS 


"Course title: ";TITLE$,"Term: 
PRINT 82,TITLE$: PRINT %2,ТЕКМ% 


FRINT: INPUT #1,N$ 


FOR I 


=1 TO K-1: INPUT #1,C(I): 


PRINT N$, 

INPUT "New score";C(K) 
PRINT #2,N$ 

SUM=0 


FOR Ізі ТО K: PRINT %2,С(1);: SUM=SUM+C(I): NEXT I 


IF ANSf-"N" OR ANS$-"n" THEN 230 


AVG=SUM/K 
PRINT "Ауегаде="; AVG 


РАТМТ 
IF МО 
CLOSE 
KILL 
NAME 
END 


#2,AVG 
T EOF (1) THEN 120 


"SCORES" 
"UPDATE" AS "SCORES" 


INPUT "Exam number";K 
INPUT "Calculate averages (Y/N) ";ANS$ 


Fig. 9.10 


Course title: Comp Sci 141 


Exam number? 6 


Calculate averages (Y/N) ? y 


Adams B F 
Average- 71.66666 
Brown P New 
Average- 65 

Davis КА New 


Average- 40 
Fisher E K New 
Average- 4.166667 


Hamilton S P New 
Average- 91.666655 


Jones J J New 
Average- 87.5 
Ludwig C W New 
Average- 53.33333 
Osborne Т New 
Average- 70 
Prince W F New 
Average= 82.5 
Richards E N New 
Average- 55 

Smith МС Мен 
Average= 47.5 


Thomas В А Мен 
Average= 21.66667 


Wolfe H New 
Average= 64.16666 
Zorba D R New 


Average= 78.33334 


score? 
score? 
score? 
score? 
score? 
score? 
score? 
score? 
score? 
score? 
score? 
score? 
score? 
Fig. 9.11 


254 


New score? 75 


во 


USING SEQUENTIAL DATA FILES 


"3 TERMS 


NEXT I 


Term: Fall 1985 


жы 
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5. This process is continued as long as an end-of-file is not detected in SCORES (line 230). Once an 
end-of-file is detected, both files are closed (line 240), and the original file is deleted (KILLed, in line 
250). The new file is then renamed SCORES (line 260). 


Figure 9.11 shows a typical interactive session resulting from the execution of the program. In this situation, 
a sixth exam score is being entered for each student and a term average (for all six exam scores) is then 
determined. The user's responses are underlined. The exam scores are the same as those entered in Example 8.4 
(see Fig. 8.8). The reader should compare the results shown in Fig. 9.11 with those obtained in Fig. 8.8. 

Figure 9.12 shows the contents of the new data file containing all six exam scores and a term average for 
each student. Notice the similarity with the corresponding data file shown in the lower portion of Fig. 8.8. When 
the execution of the program is complete, this data file will automatically be renamed as SCORES, replacing the 
earlier data file SCORES shown in Fig. 9.9. 


Comp Sci 141 


Fall 1985 

Adams B F 

45 BO BO 95 55 75 71.66666 
Brown P 

60 50 70 75 55 80 65 

Davis R ñ 

40 3O 10 45 60 55 40 
Fisher Е К 


о 5 5 Die 1m. 4.166887 
Hamilton 8 P 
90 85 100 95 90 90 91.66666 


Jones J J 
95 90 80 95 85 BO 87.5 
Ludwig C W 


35 50 55 65 45 70 53.33333 
Osborne Т 

75 40 75 60 70-80 70 
Prince W F 

85 75 60 85 90 100 82.5 
Richards Е М 

50 60 50 35 65 70 55 


Smith M C 

70 60 75 70 55 75 67.5 
Thomas В А 

10 25 55 20 50 10 21.66667 
Wolfe H 

25 40 65 75 85 95 64.16666 
Zorba D К 

55 80 70 100 60 95 78.33334 


Fig. 9.12 


Random Data Files 

From a programming standpoint, random data files are somewhat more complicated than sequential 
data files. On the other hand, individual file components can be accessed much more rapidly in arandom 
access file, as described in Chapter 8. A 

The procedures for creating, reading and updating random data files are generally different on a 
microcomputer than on a large computer. On the IBM Personal Computer, for example, a random 
data file is defined as a collection of fixed-length records. Individual data items are stored as strings 
within each record. Those data items that represent numerical values must be converted to actual 
numbers when transferred into the computer’s memory. Similarly, such data items must be converted 
back into strings prior to being transferred to the data file. A buffer area, containing one record, is 
created within the computer's memory. The buffer is subdivided into fields, where each field holds 


one data item. 
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EXAMPLE 9.31 Microcomputer Inventory Control 


Figure 9.13 contains a Simple inventory control program that is written for an IBM Personal Computer. The 
overall approach to the problem is essentially the same as that outlined in Example 8.10, and the program 
closely parallels the large-computer version presented in Fig. 8.12. The variables have been renamed, however, 
to be more descriptive of the actual probiem. In particular, the record number is now teferred to as RECNO%, 
the string that represents the inventory level (i.e., number of units) is now called UNITSS$, and its integer 
counterpart is now called UNITS%. Also, the change in the inventory level is now called СНАМСЕ%. 


10 REM жжж Microcomputer Inventory Control Program +++ 


50 ОРЕМ "R",#1,"INVTRY",5 

40 FIELD #1,5 AS UNITS$ 

SO PRINT "Stock numbers run from 1 to 2000" 

60 PRINT: PRINT "To end session, enter a negative stock number" 
70 PRINT: INPUT "Stock number ";RECNO% 

BO IF RECNOX < 1 THEN 250 

90 IF RECNOX » 2000 THEN PRINT: GOTO 50 


110 REM *** UPDATE A RECORD 


130 GET 1,RECNOX 

140 UNITSZ-CVI (UNITS£) 

150 PRINT "Original inventoryz";UNITSX; " items" 
160 INPUT "Change in inventory level"; CHANGEX 
170 UNITS%=UNI TS%+CHANGEY 

180 IF UNITS% < O THEN UNITS% = 0 

190 PRINT "New inventory="; UNITS”; " items" 

200 LSET UNITS$=MKI$(UNITS%) 

210 PUT 1,RECNO% 

220 GOTO 70 


240 REM жжж END RECORD UPDATE 


260 CLOSE 
270 END 


Fig. 9.13 


The program utilizes a random access file called INVTRY. Line 30 causes this file to be opened in the 
random (“В”) mode and assigned to memory buffer number 1, with a record size of 5 bytes (characters). Line 40 
specifies that the string variable UNITS$ will occupy the first five characters of the memory buffer, i.e., а 
five-character field is reserved for UNITSS. Note that UNITS$ represents the inventory level (i.e. 
units) in string form for record number КЕСМО%. 

An initial message is generated on the TV display in lines 50 and 60. Line 70 allows the stock number 
(RECNO%, which also represents the record number) to be entered from the keyboard, A negative value closes 


too large. If so, control is transferred back to line 50 (i.e., another value for RECNO% is requested). If, 
however, the value of RECNO% falls in the proper range, then the record number is read from the data file into 
the memory buffer (line 130). The string representation of the inventory level is then converted into an integer 
quantity (line 140), which is then shown on the TV display (line 150). 

Line 160 allows a change in the inventory level to be entered, and lines 170 and 180 cause the inventory level 
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Stock numbers run from 1 to 2000 
To end session, enter a negative stock number 


Stock number? 1186 

Original inventory= 346 items 
Change in inventory level? -45 
New inventory= 301 items 


Stock number? 708 

Original inventory= 368 items 
Change in inventory level? 200 
New inventory= 568 items 


Stock number? 84 

Original inventory= 147 items 
Change in inventory level? 16 
New inventory= 163 items 


Stock number? 1400 

Original inventory= 78 items 
Change in inventory level? -50 
New inventory= 28 items 


Stock number? -999 


Fig. 9.14 


Figure 9.14 shows a typical interactive session, utilizing the same numerical values as in Example 8,10. Once 
again, the user’s responses have been underlined. Notice the similarity in the appearance of this figure and the 
lower portion of Fig. 8.12. 


The reader is again reminded that the programs presented in this section are specifically written 
in Microsoft BASIC as implemented on the IBM Personal Computer (see Appendix D for a 
summary of this version of Microsoft BASIC). Many microcomputers utilize these same instructions. 
Other microcomputers may use file management procedures that are somewhat different. 


9.5 MACHINE-LANGUAGE PROCEDURES IN BASIC 


Many versions of microcomputer BASIC include capabilities for carrying out certain procedures 
that are customarily associated with machine language. These include 

1. Selecting a portion of the computer's memory 

2. Examining the contents of the computer's memory 

3. Altering the contents of the computer's memory 

4. Accessing machine-language subroutines 
A detailed discussion of the use of these features is beyond the scope of this text. Basically, however, 
they are used in such applications as advanced graphics, sound and music generation and the control 


of external devices. 
The most common of these features are summarized below. 
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Statement or 

Function Purpose Example 

DEF SEG=M Selects a segment of 10 DEF SEG=32768 
memory beginning with (Select a segment 
(decimal) memory of memory beginning 
location M with location 32768.) 

PEEK(M) Returns the contents 10 LET Z=PEEK(768) 
of (decimal) memory (The contents of 
location M location 768 are 

assigned to Z.) 

POKE M,X Places the value X 20 POKE 200,333 
in (decimal) memory (Place the value 
location M 333 in memory 

location 200.) 

CALL V Accesses the machine- 20 START=1024 
language subroutine 30 CALL START 
that begins in the (Access the subroutine 
(decimal) memory beginning in memory 
location indicated by location 1024.) 
the variable V 

USR(X) Transfers the value X 40 PRINT USR(12) 


to a machine-language 
subroutine 


(Print a value 
generated by a 


machine-language 
subroutine, which 
accepts 12 as an 

input parameter.) 


Note: Some versions of BASIC allow the beginning of the machine-language 
subroutine to be specified by a DEF statement, e.g., 50 DEF USR= 1280. 


The reader is reminded that DEF SEG, CALL and POKE are Statements, whereas PEEK and USR 
are library functions. 


EXAMPLE 9.32 


Consider the BASIC statments shown below. 


200 IF PEEK(768)> 127 THEN POKE 768,127 
210 CALL START 


1. The MAT (matrix) statements (see Chapter 7). 
2. Multiline functions (see Section 6.3). 
3. Certain system commands (e.g., BYE, OLD, REPLACE, SCRATCH). 
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4. The inclusion of blank lines. (Note, however, that some versions of the language allow a line - 
to contain a statement number followed by a delimiter, e.g., 100: or a statement number 
followed by an empty comment, e.g., 100 ’.) 


The reader is reminded, however, that BASIC is rapidly growing in popularity and becoming 
more sophisticated as microcomputers continue to proliferate in homes, schools and offices. New and 
improved features can therefore be expected in future versions of the language. 


Review Questions 


9.1 What advantage is there in the use of long variable names? 
9.2 Can BASIC keywords (e.g., PRINT, DATA, NEXT) be used as variable names? 


9.3 Name the different types of data that are available in microcomputer BASIC. How are the correspond- 
ing variable types distinguished from one another? 


9.4 What type of result is obtained from an arithmetic operation involving 


(a) Integer and real data? 
(b) Integer and double-precision data? 
(c) Real апа double-precision data? 


95 What happens when numerical data of one type is assigned to a numerical variable of a different type? 
9.6 What happens when a real or a double-precision quantity is assigned to an integer variable? 

9.7 How does integer division differ from ordinary division? 

9.8 What is the purpose of the MOD operator? 

99 What is the purpose of the AND, OR and NOT operators? In what type of statement are they used? 


9.10 Summarize the hierarchy of arithmetic, logical and relational operators. Do all versions of micro- 
computer BASIC employ this particular hierarchy? 


9.11 What is meant by concatenation? To what type of data does concatenation apply? What operator is 
usually used to indicate concatenation? 


9.12 What advantages аге there in writing two or more statements оп the same line? How are such statements 
distinguished from one another? 


9.13 What is the purpose of the DEFINT, DEFSNG, DEFDBL and DEFSTR statements? How does the use 
of these statements compare with the use of suffixes on variable names? 


9.14 Describe the expanded use of the IF-THEN statement in microcomputer BASIC. 


9.15 Describe the IF-THEN-ELSE statement and compare its use with that of the expanded IF-THEN 
statement. How significant is the addition of the ELSE clause? 


9.16 What is meant by structured programming? 
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` 9.17 


9.18 


9.19 


9.20 


9.21 


9.22 


9.23 


9.24 


9.28 


9.29 
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What is the purpose of the ON-GOSUB statement? How does it differ from ON-GO TO? 
What is the purpose of the ON ERROR GO TO? ` 


Describe the WHILE and WEND statements. What new type of Program structure can be defined by 
these two statements? ` 


Describe the expanded use of the INPUT statement in microcomputer BASIC. 


Describe the use of the INKEY$ and INPUTS functions to create pauses in program execution. Do all 
versions of microcomputer BASIC support these functions? 


Summarize the more common features that are provided by the PRINT USING statement. How are 
these features implemented? How significant are these features? 


What is the purpose of the LPRINT and the LPRINT USING statements? 
Describe the purpose of each of the following library functions: CDBL, CINT, CSNG, FRE, INKEY$, 
INPUTS, INSTR, LEFT$, LEN, MID$, RIGHTS, SPACES, STR$, STRING$ and VAL. How many 


arguments are required by each function? What types of arguments are required? 


What is the difference between sequential and random data files as implemented in Microsoft BASIC? 
What are the advantages and disadvantages of each? 


How does the use of sequential data files on,a microcomputer differ from the use of sequential data files 
on a large computer (as described in Chapter 8)? 


How does the use of random data files on a microcomputer differ from the use of random data files on a 
large computer (as described in Chapter 8)? 


Describe the purpose of each of the following statements or functions: DEF SEG, PEEK, POKE, 
CALL, USR. Which are statements and which are functions? For what types of applications are these 


statements and functions used? 


Name those features of traditional BASIC (as implemented on large computers) that are not available in 
most versions of microcomputer BASIC. 


Supplementary Problems 


The following “problems” are concerned with information gathering rather than actual problem 
solving. Answer the questions as they apply to your particular version of microcomputer BASIC. 


9.30 


9.31 


9.32 


Does your version of BASIC support long variable names? If so, what is the maximum permissible 
length of each variable name? How many characters are significant? 


What types of numeric data are supported? What distinction is there between different types of numeric 
variables? Can all variables with a common first letter be defined to be of a particular data type? 


Can arithmetic operations be carried out between different types of numeric data? If so, what type of 
result will be obtained with each combination of data types? 
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9.33 


9.34 


9.35 


9.36 


9.37 


9.38 


9.39 


9.40 


9.41 


9.42 


9.44 


9.45 


9.46 


9.47 


9.48 


9.49 


9.50 


9.51 


Can numeric data of one type be assigned to a numeric variable of another type? What type of result will 
be obtained? 


What additional operators are available? What is the purpose of each? 
What is the complete hierarchy of arithmetic, relational and logical operators? 
Does your version of BASIC support concatenation? If so, what operator is used for this purpose? 


Can multiple statements be placed on one line? If so, how are such statements separated from one 
another? 


How is the IF-THEN statement implemented in your version of BASIC? Can multiple statements follow 
THEN on the same line? Is the ELSE clause available? 


Is the ON-GOSUB statement available in your version of BASIC? 


Is the ON ERROR GO TO statement available in your version of BASIC? Is the RESUME statement 
available? 


Does your version of BASIC support a conditional looping feature? How is the conditional loop 
defined? 


Can a prompt message be generated by an INPUT statement in your version of BASIC? Can the 
question mark at the end of the prompt be suppressed? 


Are the INKEY$ and INPUTS functions available in your version of BASIC? 


Does your version of BASIC support the PRINT USING statement? If so, summarize the different types 
of output formats that are available. 


Are the LPRINT and LPRINT USING statements available in your version of BASIC? 


What additional library functions are available in your version of BASIC? What special capabilities are 
provided by these library functions? 


How are sequential data files utilized in your version of BASIC? How is a sequential data file created? 
How is it deleted? How are sequential data files opened and closed? How are data items written onto 


and read from such files? 


What is the general procedure for updating a sequential data file? What special BASIC instructions are 
available for carrying out the various sequential data file procedures? 


How are random data files utilized in your version of BASIC? How are such files created and deleted? 
What is the procedure for defining each record? 


How are random data files opened and closed? How are data items written onto and read from such 
files? Must numerical data be stored as strings? If so, how is the conversion accomplished? How are the 


strings converted back to numerical quantities? 


Is a memory buffer required when using random data files? If 50, is the buffer subdivided into fields? 
How is-this accomplished? 
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9.52 


9.53 


9.54 


9.55 


9.56 


9.57 


9.58 


9.59 


ЕМНАМСЕМЕМТ$ ТО BASIC [СНАР. 9 


Does your version of BASIC include the following machine-language procedures: 
(a) Selecting a portion of the computer's memory 

(b) Examining the contents of the computer's memory 

(c) Altering the contents of the computer's memory 

(d) Accessing a machine-language subroutine 


If so, how is each of these procedures carried out? 


Are there certain traditional features of BASIC that are excluded from your version of the language? 
(See Appendixes A, B and C for a summary of the traditional features of BASIC.) 


What additional enhanced features are available in your particular version of BASIC? 


Programming Problems 


Rewrite the piglatin generator given in Example 9.28 so that it includes the following additional features. 


(a) Accepts multiple lines of English text 
(b) Processes punctuation marks 


(c) Distinguishes between uppercase and lowercase letters and makes appropriate corrections (e.g., 
converts Washington to Ashingtonwa) 
(d) Accommodates double-letter sounds (e.g., converts Philadelphia to Iladelphiapha) 


Rewrite the programs given in Examples 9.29 and 9.30 for creating and processing student examination 
Scores, using the sequential data file procedures included in your version of BASIC (see also Examples 
8.2, 8.3 and 8.4). 


Rewrite the inventory control program given in Example 9.31 using the random data file procedures 
included in your version of BASIC (see also Example 8.10). 


Rewrite the binary search program given in Example 8.13 using the random data file procedures included 
in your version of BASIC. 


Rewrite each of the following programs so that they fully utilize the enhanced features available in your 
version of microcomputer BASIC. In particular, utilize the IF-THEN, IF-THEN-ELSE, WHILE/WEND 
and PRINT USING features wherever practical. 

(a) Roots of a quadratic equation (Example 2.30) 

(b) Roots of an algebraic equation (Example 4.5) 

(c) Calculating depreciation (Example 4.9) 

(d) Averaging of air pollution data (Example 4.16) 

(e) Reordering a list of numbers (Example 5.14) 

(f) Table manipulation (Example 5.15) 

(g) A game of chance (shooting craps) (Example 6.20) 

(h) Simulation of a bouncing ball (Example 6.28) 


Extend the word unscrambler (Example 5.9) so that it will rearrange the letters in any word (any number of 
letters) into all possible combinations. Make full use of the extended library functions that are available in 
your version of microcomputer BASIC. 
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9.61 


9.62 


9.63 


9.64 


9.65 


Solve each of the following programming problems making full use of the enchanced features available in 
your version of microcomputer BASIC. In particular, utilize the IF-THEN, IF-THEN-ELSE, 
WHILE/WEND and PRINT USING features whenever it is natural to do so. 

(a) Calculating a weighted average (Problem 4.47(b)) 

(b) Calculating factorials (Problem 4.48(c)) 

(с) Calculating the sine of x (Problem 4.48(4)) 

(dj Compound interest with annual compounding (Problem 4.48(e)) 

(e) Compound interest with quarterly compounding (Problem 4.48(/)) 

(f) Simulation of a four-function desk calculator (Problem 4.48(g)) 

(g)  Alphabetizing a list of names (Problem 5.51) 

(h) Matching countries with their capitals (Problem 5.56) 

(i) Matrix multiplication (Problem 5.57(b)) 

(j) Statistical calculations (Problem 5.57(d)) 

(k) Home mortage costs (Problem 5.57(f)) 

(1) | Lagrangian interpolation (Problem 5.57(h)) 

(т) Newton-Raphson iteration (Problem 5.57(i)) 

(n) Numerical integration using Simpson's rule (Problem 5.5 (k)) 

(o) Solution of a differential equation (Problem 5.57(1)) 

(р) Computation of a weekly payroll (Problem 6.48) 

(q) Calculating the area under a curve using a Monte Carlo technique (Problem 6.52(d)) 
(r) Encoding and decoding a line of text (Problem 6.52(/)) 


Solve Problem 5.57(e) (calculating the variance of a list of numbers using two different formulas) using 
real (single-precision) numbers. Then repeat the calculations using double-precision numbers. Compare 
the results obtained from the two sets of calculations. 


Solve Problem 5.55 (computation of student exam scores, including the class average and the deviation of 
each student’s average about the class average) using the enhanced features available in your version of 
microcomputer BASIC. In particular, be sure to use the PRINT USING statement. 


Write a complete BASIC program that will create and utilize a sequential data file containing names, 
addresses and telephone numbers, as described in Problem 8.40. Use the sequential data file procedures 


included in your version of microcomputer BASIC. 


Repeat Problem 9.64 utilizing a random data file. Use the random data file procedures included in your 
version of microcomputer BASIC. Also, use a binary search to find individual records (see Example 
8.13). Compare with the sequential data file version from a standpoint of programming ease and 


execution speed. 


Chapter 10 


The Microcomputer Environment 


In this chapter we will discuss the microcomputer environment with respect to hardware as well as 
software. We begin with a discussion of file designation procedures and microcomputer BASIC system 
commands. The unique characteristics of the TV display and the microcomputer keyboard will then be 
considered, along with several related features of microcomputer BASIC. Later we consider the use of 
some programmable input devices, and the use of color and sound. The chapter concludes with a brief 
discussion of built-in program editing procedures. 

Again, our emphasis will be on the use of Microsoft BASIC and its accompanying operating 
system, MS-DOS, as implemented on the IBM Personal Computer and other microcomputers of this 
type. (IBM refers to this operating system as PC-DOS.) The reader should consult an appropriate 
reference manual for information on other types of microcomputers or microcomputer operating 
systems. 


10.1 FILE DESIGNATIONS 


Most microcomputers have at least one, and usually two or three, mass storage devices on which 
various kinds of files can be stored. The most common type of mass storage device is the floppy disk, 
but tape cassettes, hard disks, optical disks and bubble memories are also available. Any of these mass 
storage devices can be used to store BASIC. programs, data files and other types of files (e.g., 
machine-language programs that are a part of the operating system). Thus, when referring to a particular 
file, there is a need to specify the name of the file, the type of file and the mass storage device on which it is 
stored. 

On the IBM Personal Computer (or any other microcomputer that uses the MS-DOS operating 
system), a complete file designation consists of the following three items. 


1. A reference to the mass storage device (a single letter followed by a colon) 
2. A file name (one to eight characters) 
3. A file extension, which indicates the file type (one to three characters preceded by a period) 


EXAMPLE 10.1 
A complete MS-DOS file designation is shown below. 
A:SAMPLE.BAS 


extension is BAS. Notice the colon between the device designation 
the file name and the extension. 


When a microcomputer is in operation, one of the mass 
as the “active device" (or if it is a disk drive, the “active drive"). When acce: 
on the active device, the device designation need not be specified. 


8 ; - 4 en i 
device, however, the device designation must be included as a part of EN o another 


the file specification. 
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EXAMPLE 10.2 


A microcomputer has two floppy disk drives, designated as drive А and drive B. Suppose that drive А 15 
currently the active drive. If we want to refer to a BASIC program on drive А called SAMPLE, we could write 
the file specification as 


SAMPLE.BAS 


On the other hand, if we should want to refer to a BASIC program on drive B called DEMO, we would have to 
write the entire file specification as 


B:DEMO.BAS 


A file (e.g., a program) that is stored on one device can easily access another file (e.g., a data file) 
that is stored on another device. To do so, we simply include the device designation as a part of the 
file designation when accessing the second file. 


EXAMPLE 10.3 


Consider once again a microcomputer with two floppy disk drives, А and B, with drive А active. Suppose 
that we are running a BASIC program that is stored on drive А and this program accesses а random-access data 
file on drive B called STUDENTS.DAT. Then we must refer to the random-access data file as 


B:STUDENTS.DAT 


from within the program. 


EXAMPLE 10.4 


Figure 10.1 shows a variation of the program that was developed in Example 9.30 for processing student 
examination scores using information stored in sequential data files. (The original program is shown in Fig. 9.10.) 
Now, however, the sequential data files are accessed from drive B, and each has the extension .DAT attached to 
the file name. Lines 40, 50, 250 and 260 reflect these changes in usage. 


10 REM sx PROGRAM TO PROCESS STUDENT EXAMINATION SCORES w***** 
20 REM eem USING SEQUENTIAL DATA FILES deeem 
50 DIM C(15) 

40 OPEN "I",1,"B: SCORES. DAT" 

50 OPEN "O0", 2, "Bs UPDATE. DAT" 

60 INPUT #1,TITLE$ 

70 INPUT #1,TERM$ 

BO PRINT "Course title: "sTITLE#,"Term: "jTERM$ 

90 PRINT %2,ТІТІЕ%: PRINT #2,TERM$ 

100 PRINT: INPUT "Exam number"jK 

110 PRINT: INPUT "Calculate averages (Y/N) “;ANS* 

120 PRINT: INPUT #1,№ 

130 FOR Ізі TO К-1: INPUT #1,C(I): NEXT I 

140 PRINT N$, 

150 INPUT "New score"jC(K) 

160 PRINT #2,N$ 

170 SUM-O 

180 FOR Ізі TO K: PRINT %2,С(1);: SUM=SUM+C(I): NEXT I 
190 IF ANS$-"N" OR ANS$-"n" THEN 250 

200 AVG-SUM/K 

210 PRINT "Average-";AVG 

220 PRINT #2,AVG 

250 IF NOT EOF(1) THEN 120 

240 CLOSE 

250 KILL "B: SCORES. DAT" 

260 МАМЕ "Bı UPDATE. DAT" AS "В: SCORES. DAT" 

270 END 


Fig. 10.1 
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еуісе designation and the file extension can be 


When accessing a BASIC program, both the d 
bout BASIC file specifications in the next 


omitted under certain conditions. We will say more a 
section. 


10.2 MICROCOMPUTER SYSTEM COMMANDS 


Many versions of microcomputer BASIC contain certain system commands that are not found in 
the more traditional versions of the language. On the other hand, certain of the traditional system 
commands are not available on a microcomputer, or else they are implemented differently. We 
therefore give some consideration to the more common microcomputer system commands, as 
implemented in Microsoft BASIC. 

Some microcomputers enter BASIC automatically as soon as they are turned on. It is more 
common, however, for a microcomputer to access its operating system after being turned on. In order 
to enter BASIC from the operating system, the user must type the command BASIC. (Similar 
commands are available for accessing other languages or other microcomputer applications, such as 
word processing.) 

Once BASIC has been accessed, the user will see a message such as that shown below. 


The IBM Personal Computer Basic 
Version 02.10 Copyright IBM Corp. 1981, 1982, 1985 
61327 Bytes free 


Ok 


The user may then load a BASIC program, run the program, list the program, etc., by entering the 
appropriate system commands. The most common system commands (as implemented in Microsoft 
BASIC for the IBM Personal Computer) are summarized below. 


Command Purpose Examples 

AUTO Automatically numbers AUTO 
successive program 
lines. (Numbers will AUTO 100,5 (Begin with 
be 10, 20, 30,..., unless line 100, increment 
specified otherwise.) by 5s.) 

CLEAR Set all numeric CLEAR 


variables to zero; 
all string variables 
become null. 


CONT Resume execution after CONT 
an interruption (e.g., 
STOP or END statement). 
DELETE Delete a block of lines DELETE 50-80 (Delete 
, from the program lines 50 through 80.) 
currently in memory. 
EDIT Enter line edit mode EDIT 100 (To edit line 
| (see Section 10.7). 100) 
FILES List all files that FILES 
have been stored on 
a mass storage device FILES “В:” 
(e.g., a floppy disk). 
KILL Delete a file from a KILL “SAMPLE” 
mass storage device 
(e.g., a floppy disk). KILL “B:STUDENTS.DAT” 


(continues on page 267) 
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Command 
LIST 


LLIST 


LOAD 


MERGE 


NAME 


NEW 


RENUM 


RUN 


SAVE 


SYSTEM 


TRON 


TROFF 
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Purpose 

List on the console 

all or part of the 
program currently 
stored in memory. 
List on the line printer 
all or part of the 
program currently 
stored in memory. 
Retrieve a file from 

a mass storage device 
(е.р., a floppy disk) 
and store in the 
computer's memory. 
Merge a program stored 
on a mass storage 
device (e.g., a floppy 
disk) with the program 
currently in memory. 
Rename a file that is 
stored on a mass 
storage device (e.g., 


. а floppy disk). 


Delete the program 
currently stored in 
memory. 

Renumbers program lines 
automatically. (Numbers 
will be 10, 20, 30,..., 
unless specified 
otherwise.) 


Execute the program 
currently in memory, or 


LOAD a program and then 


execute it. 

Store the program 
currently in memory 

on a mass storage 
device (e.g., a floppy 
disk). 

Exit from BASIC to the 
operating system. 

A debugging aid; causes 
program line numbers to 
be displayed as they are 
executed. 


Cancels the TRON command. 


Examples 

LIST 

LIST 100-200 (List 
lines 100 through 200.) 
LLIST 

LLIST 100-200 (List 


lines 100 through 200.) 


LOAD “DEMO” (DEMO is the 
file name.) 


LOAD “B:SAMPLE.BAS” 
MERGE “TRIAL” 


MERGE “B:REPORT.BAS” 


NAME “SAMPLE” AS “NEWPROG” 

NAME “B:DEMO” AS 
"B:INVADERS.BAS" 

NEW 


RENUM 
RENUM 10,100,5 (Begin 
original line 10, 


change to line 100, 
increment by 5s.) 


RUN 


RUN “B:SAMPLE” 
SAVE “DEMO” 


SAVE "B:SAMPLE" 


SYSTEM 


TRON 


TROFF 


267 


Notice that the required file designations are enclosed in quotes. This is a characteristic of 
Microsoft BASIC. It should be understood that the syntactical details may be different with other 
versions of microcomputer BASIC. Moreover, the commands themselves may be different with other 
versions of the language. 
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EXAMPLE 10.5 Time of Day 


Figure 10.2 shows a typical session involving 
session we see what happens when the computer is 


the use of BASIC with an IBM Personal Computer. In this 
first turned on and BASIC is accessed. We begin by loading a 


program called DEMO.BAS, which is stored on the active floppy disk drive (drive A). The program is then 
listed and run. We then alter the program by adding two additional PRINT statements (lines 35 and 65), list the 
new version, run the new version and then save the new version on the active drive. Finally, we exit from 


BASIC, returning to the operating system. 


Current date is Tue 1-01-1980 
Enter new date: 9-5-1985 
Current time is 0:00:12.74 
Enter new time: 19:36 


The IBM Personal Computer DOS 
Version 2.10 (C)Copyright IBM Corp 1981, 1982, 1983 


A>BASIC 
The IBM Personal Computer Basic 


Version D2.10 Copyright IBM Corp. 1981, 1982, 1983 
61327 Bytes free 


Ok 


LOAD "DEMO" 
Ok 


LIST 
10 КЕМ *#* "Good morning" program *** 


ЗО INPUT "Hi, what's your name? ",N¢ 

40 HOUR = VAL(LEFT$ (TIMES, 2) ) 

50 IF HOUR < 12 THEN PRINT "Good morning, "3; ELSE IF HOUR < 18 THEN 
PRINT "Good afternoon, "; ELSE PRINT "Good evening, "; 

60 PRINT N$ 

70 END 


RUN 

Hi, what's your name? Sharon 
Good evening, Sharon 

Ok 


55 PRINT 
65 PRINT 


LIST 
10 REM ### "Good morning" program +++ 


ЗО INPUT "Hi, what's your name? ",М% 

35 PRINT 

40 HOUR = VAL(LEFT$(TIME$,2)) 

50 IF HOUR < 12 THEN PRINT "Good morning, "; ELSE IF HOUR < 18 THEN 
PRINT "Good afternoon, "$ ELSE PRINT "Good evening, "; 

60 PRINT № 

65 PRINT 

70 END 


RUN 
Hi, what's your name? Sharon 


Good evening, Sharon 
Ok 


SAVE "DEMO" 
Ok 


SYSTEM 
A> 
Fig. 10.2 


— 
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The program itself first reads a name, e.g., “Sharon,” and then determines the current time-of-day (note 
that the time is entered when the computer is first turned on). The program will then print “Good morning, 
Sharon”, “Good afternoon, Sharon”, or “Good evening, Sharon” as appropriate. In this particular session the 
program prints “Good evening, Sharon” since we entered 19:36 (i.e., 7:36 p.m.) at the start of the session. (Note 
that the program makes use of several new library functions, as described in Section 9. 3.) 

Notice that the program (file) designations need not include the drive specification, since the program is 
loaded from and saved to the currently active drive. Also, note that the extension is assumed to be .BAS. Since 
the current program does indeed have this extension, we need not include it in the file designation. 

As in previous examples of this type, the user's responses are underlined. 

Remember that this example is representative of a microcomputer programming session with Microsoft 
BASIC. The details may differ from one computer to another. Furthermore, the session may be altogether 
different with some other version of microcomputer BASIC. 


The reader is referred to Appendix D for a more extensive summary of Microsoft BASIC, 
including the more commonly used system commands. 


10.3 THE TV MONITOR 


Most microcomputers and many timesharing terminals utilize a TV monitor (i.e., a CRT unit) as a 
primary output device. These units typically display 24 or 25 lines of text, with up to 80 characters per 
line (though some microcomputers generate large-character output, resulting in fewer characters per 
line and perhaps fewer lines). Graphical displays can also be generated on these devices (see Chapter 
12). Both color and monochromatic-type monitors are now in common use. 


Clearing the Screen 

TV monitors have certain unique characteristics that must be taken into consideration when 
writing BASIC programs. For example, a TV monitor can display only a finite number of lines at any 
one time (in contrast to a line printer, which can go on forever if there is enough paper). Therefore 
we must clear the screen periodically so that a new display can begin in the upper left corner of a 
blank screen. 

On the IBM Personal Computer, the statement CLS (clear screen) is used to clear the screen. 
This command erases whatever was displayed on the screen and then positions the cursor іп the 
upper left corner. 


Moving the Cursor 

Another unique characteristic of a TV monitor is the cursor. This is a blinking character, typically a 
small rectangle or a horizontal line, which is used to indicate a specific screen location (i.e., a particular 
line and column). The cursor has many useful purposes; for example, it can be used to draw attention 
to a particular screen location (to read a message, perhaps), to indicate a request for input data or to 
show where the next output message will appear. 

When a Ше (e.g., a BASIC program) is being edited, the cursor position is controlled at the 
keyboard. Most microcomputer keyboards include special keys that are used to move the cursor up, 
down and sideways (more about this in the next section); When a program is being executed, 
however, the cursor location is determined from within the program. The ability to move the cursor 
in this manner is particularly important when writing interactive (conversational-style) programs. 
Most versions of microcomputer BASIC therefore include special statements for positioning the 
cursor under program control. 

When a Microsoft BASIC program is being executed on the IBM Personal Computer, the 
position of the cursor is specified by the LOCATE statement. A typical LOCATE statement might 


appear as 
LOCATE 5,20 


This particular statement causes the cursor to be located on row 5 (i.e., the fifth row from the top) 
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and column 20 (from the left). Other row and column positions can be specified simply by changing the 


numerical parameters in this statement. t 

It is important to recognize that the cursor can be moved anywhere on the screen in this manner 
without erasing any of the text that may have previously been written. Thus, it is possible to move the 
cursor to some particular word or symbol that is already on the screen. 


EXAMPLE 10.6 


In order to clear the screen and then position the cursor at the center of the screen (i.e., row 13, column 40) 
with an IBM Personal Computer, we would write 


10 CLS 
20 LOCATE 13,40 
30 ANS$ = INPUTS$(1) 


Note that the last statement causes a pause in the execution in the program, thus allowing the cursor to be seen 
in its new location. Program execution will resume when any key is pressed. 


Some of the earlier versions of Microsoft BASIC do not include any explicit cursor-movement 
statements. In such cases the CLS statement can be simulated by writing PRINT CHR$(12), since 12 
is the (decimal) ASCII code for a form feed. Also, the LOCATE statement can be simulated by 
printing a sequence of blank lines followed by several blank spaces within the desired line. 


EXAMPLE 10.7 


In order to clear the screen and position the cursor at the center of the screen (i.e., row 13, column 40) using ап 
older microcomputer without explicit cursor-movement commands, we could write 


10 PRINT CHR$(12) 
20 FOR ROW=1 TO 12 : PRINT : NEXT ROW 
30 FOR COL = 1 TO 40 : PRINT * "; : NEXT COL 
40 INPUT “ ”,A$ 
(compare with Example 10.6). 
This method is, of course, less convenient than the method presented in Example 10.6. Hence it should not 
be used unless it is the only method available. 


There are three functions that are used with the PRINT statement in order to position the cursor 
along a line. They are TAB, SPC and SPACES. The first of these (TAB) is used to position the 
cursor relative to the beginning of the line, as discussed in Chapter 5. The second function (SPC) 
causes the cursor to move a specified number of spaces beyond its /ast position (which is usually 
adjacent to the last printed character). The last function (SPACES) is similar to SPC; it returns a 
string consisting of a designated number of blank spaces. 


EXAMPLE 10.8 
The statement 


10 PRINT “RED”;TAB(6);“BLUE” 


will cause the string BLUE to begin in column number 6 (which is actually the 7th column in the line), whereas 
the statement 


20 PRINT “RED”;SPC(6);“BLUE” 


will cause six spaces to appear between RED and BLUE. (Hence BLUE will begin in column number 9, which 
is actually the 10th column in the line.) 
The last PRINT statement could also be written as 


20 PRINT “RED”;SPACE$(6); “BLUE” 


This statement will also cause six spaces to appear between RED and BLUE. 
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The POS function will return the current position of the cursor in a given line. This allows 
conditional branching based upon cursor location, as illustrated below. (Note that this function 
ignores whatever value is specified for the required argument.) 


EXAMPLE 10.9 
Consider the following two statements. 


10 PRINT МАМЕ$; 
20 IF РО5(1) <20 THEN PRINT TAB(20); ADDRESS$ 
ELSE PRINT SPC(2); ADDRESS$ 


The second string (ADDRESSS) will start in column number 20 (actually the 21st column) if the first string 
(NAMES) is less than 20 characters long. Otherwise the second string will start three columns beyond the end of 
the first string (two blank spaces will separate the two strings). 


Vertical Scrolling 

Another special characteristic of a TV monitor is the vertical scrolling feature. This refers to the 
vertical movement of the screen display when a new line of text is generated at the bottom of a 
screen that is already full. When this happens, the line that was formerly at the top of the screen will 
be lost; all other lines move up one position, and the new line appears at the bottom of the screen. 

Vertical scrolling can sometimes be used advantageously to create certain special effects, as 
illustrated in Example 10.10 below. It can also be an annoyance, since it may cause a display of text 
to disappear before it can be read. This problem can usually be eliminated (or at least minimized), 
however, by utilizing special programming techniques, such as empty FOR-TO loops to generate 
time delays, the use of the INKEY$ or INPUTS functions to create pauses (see Example 9.22), 
vértical repositioning of the cursor or the use of a line printer to display lengthy text. 

A closely related problem is that of the screen being cleared (by the CLS statement) before a 
displayed text message can be read. This problem can also be eliminated through the use of empty 
FOR-TO loops or the INKEY$ or INPUTS functions. 


10 REM 3 TV-DISPLAY DEMO (IBM Version 1) жж 


30 CLS : LOCATE 11,28 

40 PRINT "WELCOME TO THE WONDERFUL" 
50 LOCATE 14,28 

60 PRINT "WORLD OF MICROCOMPUTERS!" 
70 FOR I=1 TO 3000 : NEXT I 

80 CLS: LOCATE 11,18 

90 PRINT “Just relax, enjoy yourself and remember that" 
100 LOCATE 14,25 

110 PRINT "NOTHING CAN POSSIBLY GO WRONG!" 
120 FOR I = 1 TO 3000 í NEXT I 
130 LOCATE 24 

140 FOR I = 1 TO 24 

150 FOR J = 1 TO 8 

160 PRINT "GO WRONG! "3 

170 NEXT J 

180 PRINT 1 PRINT 

190 NEXT I 

200 CLS: LOCATE 11,57 

210 PRINT “DARN!" 

220 LOCATE 15,30 

230 PRINT “Something went wrong!" 
240 LOCATE 23 

250 END 


Fig. 10.3 
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EXAMPLE 10.10 Programming а TV Display (Nothing Can Go Wrong, Go Wrong, Go Wrong, . . .) 


In Fig. 10.3 we see a short, entertaining program that is written in Microsoft BASIC for an IBM Personal 
Computer. This program illustrates the use of time delays, cursor movement and deliberate vertical scrolling. 
The program is designed to cause the message 


GO WRONG! GO WRONG! GO WRONG! GO WRONG! GO WRONG! GO WRONG! GO WRONG! 


to fill an 80-character screen and scroll vertically, thus creating the obviously false impression that the 
trustworthy microcomputer, which presumably never goes awry, has indeed done so! 

This program contains a number of CLS instructions (lines 30, 80 and 200) and several LOCATE 
instructions (lines 30, 50, 80, 100, 130, 200, 220 and 240). These statements allow the programmer to control the 
appearance of the screen, particularly the location of the various printed messages. The program also includes two 
empty FOR-TO loops (lines 70 and 120) which create time delays. The net effect is a dynamic, animated display 
with considerable visual impact. 

The reader is urged to run this program in order to observe the actual vertical scrolling. This will greatly 
enhance the reader's appreciation for the program. It is also interesting to execute the program on a line printer 
or a hard-copy terminal and compare the impact with that of a TV display. 


10.4 THE KEYBOARD 


Most microcomputer keyboards contain considerably more than the standard "typewriter-style" 
keys. Two or three additional groups of keys are quite common. These additional keys may include a 
set of cursor- and screen-movement keys, a “numeric pad" (i.e., a set of numeric keys that duplicates 
the numeric typewriter keys but has a calculator-type arrangement) and a set of special function keys. 
Certain of these keys can be programmed to perform special tasks during the execution of a BASIC 
program. 


Fig. 10.4 
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Consider, for example, the keyboard used with the IBM Personal Computer, shown in Fig. 10.4. 
Notice that the typewriter keys are located in the center of the keyboard. To the right is a group of 
keys that serve two different functions; they are usually used as cursor- and screen-movement keys, 
though they can become numeric keys if the “NumLock” key (located in the upper-right corner) is 
depressed. The left side of the keyboard contains a group of function keys, labeled F1 through F10. 

Тһе advanced version of Microsoft BASIC that is supplied with the IBM Personal Computer 
(called BASICA) contains several special commands that allow the computer to determine if any of 
the function keys or certain of the cursor-movement keys have been pressed.* The computer can then 
respond in any way the programmer may wish, through special subroutine calls (i.e., through a 
special form of the ON-GOSUB statement). We will see how this is accomplished in the next 
example. 


EXAMPLE 10.11 Programming the Function Keys 


Figure 10.5 presents a simple BASIC program, written in advanced Microsoft BASIC (i.e., BASICA), for 
the IBM Personal Computer. This program contains a loop that displays the consecutive positive integers 
1,2,3,...,32767 on the screen, one integer per line. Since the screen can only display 24 lines at any one time, 
the numbers scroll vertically upward once the screen becomes filled. 

The program contains a provision for terminating the computation any time the user may wish, simply by 
pressing function key F2. Also, the screen colors can be "reversed" (i.e., changed from white characters on a 
black background to black characters on a white background, and vice versa) at any time by pressing function 
key F1 while the program is executing. 


10 REM ### FUNCTION KEY DEMO *** 


50 ON KEY(1) GOSUB 160 
40 ON KEY(2) GOSUB 200 
50 KEY(1) ОМ : KEY(2) ON 


70 CLS : FLAG = 1 

80 PRINT "FUNCTION KEY DEMONSTRATION" : PRINT 

90 PRINT "Press Fi to REVERSE the screen, F2 to STOP" 1 PRINT 
100 PRINT "Press any other key to begin" 

110 DUMMY$ - INPUT$(1) 

120 FOR COUNT = 1 TO 32757 : PRINT COUNT : NEXT СОММТ 

130 END 


150 REM жеж SUBROUTINE TO REVERSE THE SCREEN ### 
150 IF FLAG = 1 THEN COLOR 0,7 : FLAG = O ELSE COLOR 7,0 : FLAG = 1 
170 RETURN 


180 
190 REM www SUBROUTINE TO TERMINATE THE COMPUTATION *** 
200 END 

Fig. 10.5 


Now let us examine this program in detail. Lines 30 and 40 associate each function key with a particular 
subroutine, and line 50 activates these associations. Line 70 clears the screen and then assigns a value of 1 to 
FLAG, indicating white characters on a black background. An initial message is then provided in lines 80 
through 110. The consecutive integers are generated and printed in the FOR-TO loop which appears on line 120, 
and line 130 represents the end of the main part of the program. 

Lines 150 through 170 comprise the first subroutine (associated with F1), which reverses the colors. The 
principal part of the subroutine is the IF-THEN-ELSE statement on line 160. The color reversals are carried out 
with the COLOR statement. Thus if FLAG = 1, indicating white on black, the colors are reversed by specifying 
COLOR 0,7 (the 0 indicates black characters, and the 7 indicates a white background). FLAG is then set equal 


* The IBM Personal Computer actually supports three different versions of Microsoft BASIC, called Cassette BASIC, 
Disk BASIC and Advanced BASIC, respectively. 
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to 0. Similarly, if FLAG is not equal to 1, the colors are reversed by specifying COLOR 7,0 (white characters, 
black background) and FLAG 15 reset to 1. The RETURN statement in line 170 causes control to be returned to 
the statement following the point where the function key was depressed. 

The second subroutine consists simply of an identifying remark and an END statement. А RETURN 
statement is not required here since the purpose of this subroutine is to terminate the computation. 

We will say more about the COLOR statement later in this chapter (see Section 10.6). It should be 
apparent, however, that this statement is used to produce colored text against different colored backgrounds. It 
сап also be used to generate color graphics, as we shall see in Chapter 12. 

Finally, the reader should see this program in operation to appreciate what it does and how it works. If an 
IBM-type personal computer is available, the reader is strongly encouraged to type in the program and then run 
it, pressing F1 several times during the program execution, and then pressing F2 to stop the program execution. 


10.5 OTHER PROGRAMMABLE INPUT DEVICES 


Microcomputers are able to make use of several different types of progremmable input devices in 
addition to the keyboard. Two commonly used devices are the light pen and the joystick. The light 
pen is a pointing device that can be programmed to sense a location on the screen and then activate 
some function. Similarly, the joystick is a positioning device that can be programmed to position the 
cursor and then activate a function by depressing a button. Microsoft BASIC allows these devices to 
be programmed in much the same manner as the keyboard function keys, as described in Section 
10.4. 


Consider, Гог example, the light реп, the use of which is illustrated in Fig. 10.6. This is a 


Fig. 10.6 


CHAP. 10] THE MICROCOMPUTER ENVIRONMENT 275 


light-sensitive device with a switch built into its tip. The switch is actuated by pressing the light pen 
against a light source on the TV monitor. The location of the light source (row and column) can then 
be determined by the computer. 

Advanced Microsoft BASIC contains several special statements and functions that are designed 
to be used with a light pen. Use of these special features is illustrated in the next example. 


EXAMPLE 10.12 Programming a Light Реп 


In Fig. 10.7 we see an advanced BASIC program, written for the IBM Personal Computer, that allows the 
user to select one of several items displayed in the form of a “menu” on the TV monitor. The selection is made 
with a light pen. Once an item has been selected, an action is taken which is specific to that selection. 


10 REM *** LIGHT PEN DEMO +++ 


50 ON PEN GOSUB 240 
40 PEN ON 
50 SQUARE$-CHR$(219)-*CHR$ (219) 


70 REM жжж MAIN LOOP ж 


90 CLS : PRINT "Multi-lingual greetings" 

100 LOCATE 4,1 : PRINT "Please select a language" 
110 LOCATE 6,4 : PRINT SQUARE$; SPC (4) ; "English" 
120 LOCATE 8,4 : PRINT SQUARE$; SPC (4) ; "French" 
130 LOCATE 10,4 PRINT SQUARES; SPC (4) ; "Berman" 
140 LOCATE 12,4 PRINT SQUARE$; SPC (4); "Hawaiian" 
150 LOCATE 14,4 PRINT SQUARE$; SPC (4) ; "Hebrew" 
160 LOCATE 16,4 PRINT SGUARE$;SPC(4);"Italian" 
170 LOCATE 18,4 PRINT SQUARE$; SPC(4); "Japanese" 
180 LOCATE 20,4 PRINT SGUARE$;SPC(4);"Spanish" 
190 LOCATE 22,4 PRINT SQUARE$; SPC (4) ; "END" 

200 GOTO 200 


220 REM жжж SUBROUTINE TO PRINT ‘HELLO’ m 


240 ROW=PEN (6) 

250 IF ROW=22 THEN LOCATE 23,1 : END 

260 LOCATE ROW,20 

270 IF ROW=6 THEN PRINT "Hello" : GOTO 350 

280 IF ROW-8 THEN PRINT "Bonjour" : GOTO 550 

290 IF ROW=10 THEN PRINT “Guten tag" : GOTO 350 
300 IF ROW=12 THEN PRINT "Aloha" : GOTO 350 

310 IF ROW=14 THEN PRINT "Shalom" : GOTO 350 
520 IF ROW=14 THEN PRINT "Buon giorno" : GOTO 550 
330 IF ROW=18 THEN PRINT "Konichihua" : GOTO 550 
340 IF ROW=20 THEN PRINT "Buenos dias" 

250 FOR COUNT-1 TO 1000 : NEXT COUNT 

360 LOCATE ROW,20 : PRINT SPACE#(15) 

370 RETURN 

580 END 


Fig. 10.7 


In particular, the program will generate a list containing the names of eight different languages, each 
preceded by a square block of light. The user presses the point of the light pen against the block corresponding 
to the language of his or her choice. An appropriate greeting, in the chosen language, will then appear adjacent 
to the language name. The greeting will remain on the screen for a second or two (long enough for it to be read 
comfortably) and then erased. The user may then choose another language, and the process will be repeated. 
This will continue until the user selects the last menu item (END), which causes the program to stop. 

Now let us examine the actual program in some detail. Line 30 associates a signal coming from the light pen 
with a subroutine, and line 40 activates this association. Line 50 defines a string consisting of a block of light. ` 
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Тһе menu is generated by lines 90 through 190. Line 200 simply loops back to itself an indefinite number of 
times, causing the computer to wait for a signal from the light pen. 

Once a signal has been detected from the light pen (caused by the light pen being pressed against one of the 
blocks of light, thus triggering its switch), program control automatically jumps to line 240. This statement makes 
use of the ,PEN function. The argument 6 causes the function to return the number of the row where the light 
pen was activated. This value is then assigned to the variable ROW. Line 260 then positions the cursor, in 
preparation for displaying the appropriate greeting, and lines 270 through 340 select the appropriate greeting 
and cause it to be displayed. А time delay is generated by the empty FOR-TO loop in line 350. Finally, the 
greeting is erased (overwritten by blank spaces) in line 360 and control is returned to line 200. This process 
continues until row 22 is selected, causing the program to stop (line 250). 

Execution of the program causes a menu, similar to that shown in Fig. 10.8, to appear on the screen. (Note 
that the dark blocks will appear as blocks of light on the TV monitor.) The user presses the light pen against one 
of the blocks, and the appropriate greeting will occur to the right of the current menu selection. For example, if 
the light pen is pressed against the second block, the greeting “Bonjour” will appear to the right of the word 
“French.” The greeting will disappear after a short time delay. The user may then make another selection. 
Notice that the program can be ended at any time simply by selecting the last block. 


Multi-lingual greetings 


Please select a language 
English 
French 
German 
Hawaiian 
Hebrew 
Italian 
Japanese 
Spanish 
END 

Fig. 10.8 


Now consider a typical joystick, such as that illustrated in Fig. 10.9. This device has a handle (i.e., 
а "stick") that can be moved іп two different directions (up/down and left/right). The position of the 
handle is described by a pair of integer values representing x and у coordinates (e.g., each coordinate 
might typically be represented by an integer ranging from 0 to 127). These values are continuously 
transmitted to the computer, where they can be transformed into a cursor position (і.е., row and 
column numbers). If the joystick handle is moved, the cursor position will change correspondingly. 
Hence, the computer can be programmed to move the cursor around the Screen in response to the 
movement of the joystick handle. 

The joystick also, has two buttons (switches) that can be used to transmit individual signals to the 
computer. Thus, it is possible to position the cursor to a desired location by moving the joystick 
handle and then activate some function by pressing one of the buttons. Each button can be 


Advanced Microsoft BASIC includes several special statements and functions that can be used to 


program a joystick. The manner in which this can be accomplished is illustrated in the example 
shown below. 
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Fig. 10.9 


EXAMPLE 10.13 Programming a Joystick 


Figure 10.10 contains an advanced BASIC program that allows an IBM Personal Computer to operate 
under control of a joystick. The program begins by blanking out the entire screen. The user can then position 
the cursor to any desired position by moving the handle of the joystick. At any cursor position the user can 
cause an asterisk (*) to be displayed by pressing button 1 (the button closest to the handle in Fig. 10.9). Also, an 
existing asterisk сап be “erased” by pressing button 2. 


10 REM ### JOYSTICK DEMO +++ 


50 CLS 
40 ON STRIG(O) GOSUB 170 
50 ON STRIG(4) GOSUB 200 


90 

100 
110 
120 
130 


210 


60 STRIG(O) ОМ : STRIG(4) ON 
ВО REM ##* MAIN LOOP w** 


Х=8ТІСК(0) : Y=STICK(1) 
ROW=23#(Y/127) + 1 
COL=79#(X/127) + 1 
LOCATE ROW,COL,1 

GOTO 100 


REM *** SUBROUTINE TO PRINT AN ASTERISK жж 
PRINT "ж"; : RETURN 


REM ### SUBROUTINE TO PRINT A BLANK SPACE +++ 
PRINT " "j : RETURN 
END 


Fig. 10.10 
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Тһе program begins by clearing the screen (line 30). Lines 40 and 50 associate signals coming from buttons 1 
and 2 with subroutines that print an asterisk or a blank space, respectively. Line 60 then activates these 
associations. 

Lines 100 through 140 define a loop which forms the heart of the program. Line 100 detects numerical values for 
the variables X and Y, depending on the position of the joystick handle. Each of these values will fall within the 
interval 0 to 127. Thus, the point X=0, Y=0 refers to the upper left corner, and the point X=127, Y=127 refers 
to the lower right corner. Lines 110 and 120 then convert these values into a row number (ranging from 1 to 24) 
and a column number (ranging from 1 to 80). Line 130 positions the cursor at this new location. Finally, line 140 
closes the loop (thus detecting new values for X and Y in response to a movement of the joystick handle) and 
repositions the cursor accordingly. 

Line 170 defines a simple subroutine that prints an asterisk (*) at the current cursor position. This 
subroutine is activated whenever joystick button 1 is pressed during execution of the main loop. Similarly, line 
200 defines a subroutine that prints a blank space at the current cursor position (thus erasing whatever else may 
have been at this position). This subroutine is activated by pressing button 2 during execution of the main loop. 

Notice that this program continues to execute indefinitely, or until the computer breaks out of BASIC 
by some command from the user. The program could be improved by adding a routine that would end the 
computation whenever a function key is pressed, as in Example 10.11. : 


Though the light pen and the joystick are popular microcomputer input devices, they are by по 
means the only such devices available. Modern microcomputers also support digitizers, speech 
recognition devices, and several other types of input devices. 

Of particular importance is the growing interest in the use of a device known as a mouse. This is 
a positioning device, similar to a joystick. The mouse is easier to control, however, because the 
cursor is positioned by sliding the mouse along a broad flat surface (typically an area about one 
square foot) rather than by making delicate adjustments to the small, sensitive handle of a joystick. 

Figure 10.11 shows a photograph of a typical mouse. Notice that two buttons are located on the 
front of the mouse. (Some mice have three buttons; others have only one.) Like the joystick, the 
mouse permits various functions to be activated at any time simply by pressing one of these buttons. 


Fig. 10.11 
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The use of a mouse is becoming popular for certain office automation applications, particularly 
word processing and applications that make extensive use of graphics. Some versions of micro- 
computer BASIC now support the use of a mouse (with a group of instructions similar to those used 
with a joystick), and others do not. The inclusion of “mouse commands" іп microcomputer BASIC 
should become increasingly common, however, in future years. D 


10.6 USE OF COLOR AND SOUND 


Some microcomputers support the use of color TV monitors, thus allowing text of one color to 
be displayed against a background of a different color. The use of colored text displays can provide 
an effective form of program enhancement, particularly if the program is highly interactive. 

For those microcomputers that support the use of color, BASIC allows colors to be selected by 
means of the COLOR statement. This statement generally includes three parameters, specifying the 
foreground (text) color, the background color and the “border” (1..е., the background area along the 
outer edges of the screen). On the IBM Personal Computer, for example, the following foreground 
colors may be selected. 


0 black 8 gray 

l blue 9 light blue 

2 green 10 light green 

3 cyan 11 light cyan 

4 red 12 light red 

5 magenta 13 light magenta 

6 brown 14 yellow 

7 white 15 high intensity white 


Any of the first eight colors (0 through 7) may also be selected for the background or the border. 
Thus, the statement COLOR 7,0,0 indicates white text on a black background and a black border; 
COLOR 0,7,7 selects black text against a white background and a white border; COLOR 14,1,4 
indicates yellow text against a blue background with a red border, and so on. The value of the 
parameters can be modified at any time during the execution of a program, thus causing the colors 
to change as desired. 

Use of the COLOR statement is generally preceded by the SCREEN statement, which specifies 
the mode (text vs. graphics) and color status (enabled or disabled). Thus, on the IBM Personal 
Computer, the statement SCREEN 0,1 specifies text mode, with color enabled. 


EXAMPLE 10.14 Multicolored Text 


To illustrate the use of colored text on the IBM Personal Computer, we present a program written in 
Microsoft BASIC that displays the same line of text repeatedly but with different color parameters. This will 
result in vertical scrolling on the screen, with each line displayed in a different color. Initially, the background 
and border will be black. However, the program includes a provision for changing the background and border 
colors at any time simply by pressing function key F1. Also, function key F2 is used to stop the computation. 

The complete program is shown in Fig. 10.12. The program begins with the SCREEN command in line 30, 
which specifies text mode with color enabled. Line 40 removes the display of any previous function key 
definitions from the bottom line of the screen. Lines 50 through 70 generate a message at the bottom of the 
screen which describes the current use of the function keys; i.e., 


F1: Change background color F2: End 


This last group of instructions requires some additional explanation. On the IBM Personal Computer, the 
bottom line displayed on the screen (i.e., line 25) is a nonscrolling line which is normally used to display prompts 
and messages of this type. Such messages are often displayed in inverse color (black text on white background) 
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10 КЕМ ### COLOR TEXT DEMO жн 
20 

30 SCREEN 0,1 

40 KEY OFF 

So LOCATE 25,1 : COLOR 0,7 

60 PRINT “Fi: Change background color F21 End "; 
(70 COLOR 7,0 : LOCATE 1,1 

80 ОМ KEY(1) GOSUB 210 

90 ON KEY(2) GOSUB 250 

100 KEY(1) ON : KEY(2) ON 

110 FOREGROUND=1 : BACKGROUND=0 


120 

130 REM ### MAIN LOOP se 

140 ' 

150 COLOR FOREGROUND, BACKGROUND , BACKGROUND 

160 PRINT "Programming with BASIC is lots of fun!:" 
170 FOREGROUND=(FOREGROUND+1) MOD 16 

180 GOTO 150 


200 REM ### SUBROUTINE TO CHANGE BACKGROUND COLOR w+** 
210 BACKGROUND=(BACKGROUND+1) MOD B 
220 RETURN 


240 REM *** SUBROUTINE TO TERMINATE THE COMPUTATION жж 
250 COLOR 7,0,0 
260 END 


Fig. 10.12 


10 distinguish them from whatever else may appear on the screen. Hence, line 50 positions the cursor at the 
lower left corner of the screen and specifies inverse color. Line 60 generates the actual message across the 
bottom line, and line 70 restores the normal color (white text on black background) and then repositions the 
cursor to the upper left corner of the screen. 

Lines 80 through 100 set up the use of the function keys, as described in Example 10.11. The initial color 
scheme (blue text on black background) is then set up in line 110. 

The scrolling text is generated by a loop consisting of lines 150 through 180. Each pass through the loop 
generates one line of text, and each line of text will be displayed in a different color. Thus, line 150 selects the 
current colors in accordance with the values that are assigned to the parameters FOREGROUND (for the color 
of the text) and BACKGROUND (for the background and borders). Line 160 generates the actual line of text, 
Le 


Programming with BASIC is lots of fun! 


and line 170 generates a new value for the parameter FOREGROUND in preparation for the next pass through 
the loop. (Note that FOREGROUND takes on sequential integer values between 0 and 15 due to the use of the 
MOD operator.) Finally, line 180 closes the loop by returning to line 150. 

Lines 210 and 220 define the subroutine that is activated by function key F1. This subroutine causes the 
value of BACKGROUND to be increased by 1 whenever F1 is pressed. (Note that BACKGROUND takes on 
sequential integer values between 0 and 7.) This in turn causes the background and border color to change as 
soon as control is returned to the main loop. 

Similarly, lines 250 and 260 define the subroutine that is activated by function key F2. This subroutine 
simply restores the standard color scheme (white text, black background, black border) and ends the com- 
putation. 

Once execution begins, the program will remain in the main loop indefinitely, until function key F2 is 
pressed. Each line of text will appear in,a different color, but the colors will repeat themselves every 16 lines, 
since there are only 16 different foreground colors. One line in each group of 16 will be unreadable because the 
foreground color will be the same as the background color. The background color will change every time F1 is 
pressed. The sequence of background colors will begin to repeat after eight different colors, however, since only 
eight background colors are available. 

The reader should actually run this program on an IBM-type computer equipped with a color monitor if at 
all possible. This will provide the reader with a greater appreciation of the effect that is created. 
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If the computer is equipped with a monochromatic TV monitor (e.g., black and white, or black 
and green) rather than a color monitor, the COLOR statement may be interpreted somewhat 
differently. In particular, certain of the parameters may be used to specify text attributes, such as 
underlined, high intensity or flashing text. We will see an example of this in Example 10.17. 

Let us now turn our attention to the use of sound in a BASIC program. Most microcomputers 
include an internal speaker that can be activated under program control. Though these speakers are 
typically small, they are capable of producing a remarkable variety of sounds. Many BASIC programs 
can be enhanced through the use of such program-generated sounds. 

On the IBM Personal Computer, for example, there is a BEEP statement that simply “beeps” the 
speaker, producing a short, high-pitched sound of constant frequency. Such beeps are useful for 
drawing the user’s attention to some specific event that may occur during program execution. The 
beep is often used in conjunction with an error-trapping routine (see Chapter 11), though there are 
other uses for it as well. 


EXAMPLE 10.15 


Let us modify the Microsoft BASIC program shown in the last example so that the speaker beeps whenever 
the background color is changed (i.e., whenever function key F1 is pressed). This can be accomplished very easily by 
adding a BEEP statement to the subroutine defined by lines 210 through 220. Thus, the subroutine may be written as 


200 REM ### SUBROUTINE TO CHANGE BACKGROUND COLOR w** 
210 BACKGROUND=(BACKGROUND+1) MOD 8 

215 BEEP 

220 RETURN 


(Note the addition of line 215.) The reader should make this change and execute this program, if at all possible, 
to experience the effect that is created. 


Microsoft BASIC also includes the SOUND statement, which is used to create a sound with a 
variable frequency and duration. The higher the frequency, the higher the pitch of the sound. 
Similarly, the greater the duration, the longer the sound. For example, the statement SOUND 5000,1 
will produce a relatively high-pitched, short sound whereas SOUND 100,2000 generates a low, long 
tone. (The first parameter represents frequency, and the second represents duration.) 

A certain amount of experimentation with the SOUND statement can be very revealing, as many 
interesting sounds can be produced by the creative use of this statement. This is particularly true if 
the statement is included within a FOR-TO loop with variable values for the parameters. Some of 
these effects are illustrated in the next two examples. 


EXAMPLE 10.16 Programming the Speaker (A Siren) 


Figure 10.13 presents a Microsoft BASIC program, written for the IBM Personal Computer, that causes the 
internal speaker to generate a siren sound. Essentially, the program consists of a FOR-TO loop that is repeated 
an indefinite number of times. Each complete execution of the loop produces one “wail” of the siren. This 
characteristic siren sound is repeated every time the entire loop is executed. The siren will continue indefinitely, 
until function key F1 is pressed. 

Now let us examine the program in detail. Line 30 removes the display of any previous function key 
definitions from the bottom of the screen, and lines 40 and 50 generate the message 


Press Е1 to STOP 


at the center of the screen. Line 60 associates function key F1 with a subroutine to end the computation, and line 
70 activates this association. The length of each individual sound is then established by assigning the value 0.02 
to DURATION in line 80. (Note that each individual sound will be short.) 

Lines 120 through 150 produce the actual siren sound. In lines 120 through 140 we see a FOR-TO loop that 
creates one wail of the siren. Each pass through this loop generates a short tone whose frequency is determined 
by the running index (FREQUENCY). Notice that the tone will increase in frequency during each pass through 
the loop. Since the tones are short, the effect will be that of creating a continuously rising siren sound, even 
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10 REM «жж SOUND DEMO (SIREN) жж 


30 KEY OFF 

40 CLS : LOCATE 12,32 

50 PRINT "Press F1 to STOP"; 
60 ОМ KEY(1) GOSUB 180 

70 KEY(1) ON 

80 DURATION=.02 


100 REM w** MAIN LOOP w** 

110 ° 

120 FOR FREQUENCY-400 TO 1000 STEP 5 

130 SOUND FREGUENCY , DURAT ION 

140 NEXT FREQUENCY 

150 GOTO 120 

160 * 

170 REM *** SUBROUTINE TO TERMINATE THE COMPUTATION жжж 


180 END 
Fig. 10.13 


though the individual tones have separate, discrete frequencies. Finally, line 150 causes the loop to start over, 
thus generating the repeated siren sound. 

The entire process will continue until function key F1 is pressed. This immediately transfers control to the 
END statement in line 180, causing the program to stop. 

Once again, the reader is urged to actually run this program in order to appreciate what happens. 


The next example illustrates the combined use of the COLOR, BEEP and SOUND statements 
to enhance a BASIC program that generates a simple display of text. The program 15 intended to be 
run on a monochrome TV display. Hence the COLOR statement is used to select various text 
attributes, such as flashing and high intensity, rather than actual colors. 


EXAMPLE 10.17 Programming a TV Display (Nothing Сап Go Wrong, Go Wrong, Go Wrong ...) 


Figure 10.14 shows a variation of the program originally presented in Example 10.10, which causes the 
message 


GO WRONG! GO WRONG! GO WRONG! GO WRONG! GO WRONG! GO WRONG! GO WRONG! 


to fill an 80-character screen and scroll vertically. The logic is essentially the same as the program presented 
earlier (see Fig. 10.3). However, this version of the program is enhanced by several additional COLOR 
statements and several BEEP and SOUND statements. 

For example, the statement COLOR 15,0 in line 40 causes the introductory message 


WELCOME TO THE WONDERFUL 
WORLD OF MICROCOMPUTERS! 


to be displayed in high intensity, thus providing special emphasis on this message. Similarly, the COLOR 15,0 
statement in line 230 causes the word 


DARN! 


to appear in high intensity, again providing special emphasis. (Note that the high intensity text is turned off by 
the COLOR 7,0 statement in lines 90 and 280.) 

A somewhat different effect is achieved by the COLOR 16,7 statement in line 150. This statement causes 
the lines containing the message 


GO WRONG! GO WRONG! GO WRONG! GO WRONG! GO WRONG! GO WRONG! GO WRONG! 


to be displayed as flashing black letters against a white background (i.e., as a flashing inverse display), thus 
adding a dramatic touch as the lines scroll up the screen. 

The program is further enhanced by the two BEEP statements, in lines 40 and 90 and the SOUND 
statements in lines 210 and 260. The BEEP statements cause the speaker to beep when each of the opening 
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10 REM *** TV-DISPLAY DEMO (IBM Version 2) +++ 


ЗО KEY OFF 5 
40 CLS : COLOR 15,0 : LOCATE 11,28 : BEEP 

50 PRINT “WELCOME TO THE WONDERFUL" 

60 LOCATE 14,28 

70 PRINT "WORLD OF MICROCOMPUTERS!" 

80 FOR I=1 TO 3000 : NEXT I 

90 CLS 1 COLOR 7,0 : LOCATE 11,18 : ВЕЕР 

100 PRINT “Just relax, enjoy yourself and remember that" 
110 LOCATE 14,25 

120 PRINT "NOTHING CAN POSSIBLY GO WRONG!" 
130 FOR I = 1 TO 3000 : NEXT I 

140 LOCATE 24 

150 COLOR 16,7 

160 FOR I = 1 TO 16 


170 FOR J = 1 TO 8 

180 PRINT "GO WRONG! "; 

190 NEXT J 

200 PRINT 

210 SOUND 500,5 : SOUND 32767,5 : PRINT 
220 NEXT I 


230 COLOR 15,0 

240 CLS : LOCATE 11,37 \ 

250 PRINT "DARN!" 

260 FOR Ізі TO 18 : SOUND 50,1 : SOUND 52767,1 : NEXT I 
270 LOCATE 15,30 

280 COLOR 7,0 : PRINT "Something went wrong!" 

290 LOCATE 23 

$00 END 


Fig. 10.14 


messages is first displayed, thus drawing attention to these messages. Similarly, the two SOUND statements in 
line 210 create a lower pitch, longer beep that accompanies each of the scrolling lines of text. (The first SOUND 
statement generates the actual sound. The second SOUND statement produces a pause, i.e., a sound of very 
high frequency, which is inaudible. Without this pause, the sounds produced by the first SOUND statement 
would run together during successive passes through the FOR-TO loop, thus producing one long, continuous 
tone.) 

In line 260 we see two consecutive SOUND statements, as in line 210, contained within a FOR-TO loop. 
Now, however, the only purpose of the FOR-TO loop is to execute these SOUND statements repeatedly. The 
overall effect is a sequence of short, low-pitched sounds, somewhat like a frog’s croak. This croaking sound is 
intended to enhance the word DARN! which is generated in the previous line. 

We again encourage the reader to actually run this program in order to appreciate fully the various visual 


and sound effects that are created. 


10.7 PROGRAM EDITING 


Most versions of microcomputer BASIC offer much more flexibility in editing a program than the 
older, traditional versions of the language. In Microsoft BASIC, for example, a BASIC program can 
be edited three different ways: with the EDIT statement, with the full-screen edit feature and with a 


conventional text editor or word processor. 
The EDIT statement is best suited for making occasional, single-line changes in different parts of 


a program. To use this statement, the programmer simply types EDIT, followed by the appropriate 
line number, e.g., 

EDIT 50 
This causes the line to be displayed on the monitor, with the cursor situated at the beginning of the 
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line. The desired editing function (i.e., cursor movement, insertion, deletion, etc.) can then be initiated 


by pressing the appropriate key. э 2 
Interested readers are referred to the BASIC programmer's reference manual for their particular 
computer for more information on this useful feature. 


EXAMPLE 10.18 
Consider the BASIC program presented in Example 10.17 (see Fig. 10.14). Suppose that line 150 had been 
incorrectly entered as 4 
150 COLLR 16,7 
(Note that COLLR has been entered instead of COLOR.) To make the necessary correction, the programmer 
simply types 
EDIT 150 
followed by a carriage return. This causes the original (incorrect) line to.appear on the TV monitor, with the 
cursor situated beneath the 1 in 150, i.e., 
150 COLLR 16,7 
The cursor is then moved to the incorrect character, i.e., 
160 COLLR 16,7 


and the L is replaced with an O. Once the change has been made the programmer presses the carriage return, 
thus replacing the original line with the edited line. 


If several successive lines must be changed within the program, it may be more convenient to list 
the entire block of lines on the screen rather than edit each line individually. Each of the required 
changes can then be made by moving the cursor to the appropriate place within each line and then 
retyping as necessary. Pressing the carriage return after each change causes the newly edited line to 
replace the original line. The cursor will then automatically be positioned at the start of the next 
line. This is referred to as full-screen editing. 


EXAMPLE 10.19 


Consider once again the BASIC program presented in Example 10.17. Suppose that lines 160 through 220 
are known to contain several errors. One way to correct these errors is to edit each line individually, as in the 
preceding example. It may be easier, however, to type 


LIST 160-220 


This will produce the following display on the TV monitor (note that each line contains at least one error): 


160 FUR I-1 TO 16 

170 FOR J-1 TO 16 

180 PRUNT "GO WRING! "; 
190 NEXT I 


200 PRNT 
210 SOUND 500 : SOUND $2767 : PRINT 
220 NEXT J 


To edit this block of statements, first move the cursor to the appropriate place in line 160, correct the error 
(FUR should be FOR) and press the carriage return. This will automatically position the cursor at the beginning 
of line 170. Move the cursor and correct the error in line 170, press the carriage return, then correct the errors in 
line 180, etc., until all the changes have been made. At the end of this process, lines 160 through 220 will appear 
as 
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160 FOR I=! TO 14 

170 FOR 1-1 ТО 8 

180 PRINT "GO WRONG! "; 

190 МЕХТ 4 

200 РКІМТ 

210 SOUND 500,5 : SOUND 52727,5 : PRINT 
220 NEXT I 


Note that it has not been necessary to type EDIT 160, EDIT 170, etc., for each of the lines requiring editing. 


A BASIC program can also be edited with a conventional text editor or word processor provided 
it has first been saved as an ASCII file rather than an encoded, compressed file. To save a program in 
this manner when using Microsoft BASIC, the user must type 


SAVE “program пате”,А 


The program can then be recalled by a text editor. and altered as necessary. 


EXAMPLE 10.20 


Suppose that the “GO WRONG!” program presented in Example 10.17 has been entered into the 
computer for the first time, and it is suspected that numerous typing errors have been made throughout the 
program. These errors may be corrected using either of the methods described in the last two examples. It may 
be easier, however, to save the program as an ASCII file and then make the corrections using a text editor. 

To store the program as ari ASCII file on disk drive B with the name DEMO.BAS, we must type 


SAVE "B:DEMO",A 


We can then access the text editor, load the file DEMO.BAS from drive B and make the necessary corrections. 
Once all the corrections have been made, the new file can again be stored on drive B as DEMO.BAS and later 
executed. 


Review Questions 
10.1 Determine what operating system is available for the microcomputer at your home or office. Determine 
how files are designated with this particular operating system. 


10.2 What is the difference between a file name and a file extension? What useful purpose is served by a file 
extension? 


10.3 How can a program that is stored оп one mass storage device access a file (e.g., a data file) that is stored 
on another mass storage device? 


10.4 Describe the purpose of each of the following microcomputer system commands: AUTO, CLEAR, 
CONT, DELETE, EDIT, FILES, KILL, LIST, LLIST, LOAD, MERGE, NAME, NEW, RENUM, 


RUN, SAVE, SYSTEM, TRON, TROFF. 


10.5 What system commands are available on the microcomputer that is used at your particular home or 
office? Compare each of these commands with those listed in Question 10.4. 


10.6 How much text (how many rows and columns) can be displayed on a typical microcomputer TV 
monitor? 


10.7 How can the screen be cleared during execution of a BASIC program? 
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10.8 


10.9 


10.10 


10.11 


10.12 


10.13 


10.14 


10.15 


10.16 


10.17 


10.18 


10.19 


10.20 


10.21 


10.22 


10.23 


10.24 


10.25 


10.26 


10.27 
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How can the cursor be positioned while a program is being edited? How can it be positioned during 
program execution? 


When a BASIC program is being executed, is it possible to move the cursor to a position on the screen 
that already has text displayed? If so. will this destroy the previous text display? 


What is the difference between the BASIC functions TAB, SPC and SPACE$? When can each function 
best be used? 


What is meant by vertical scrolling? How can vertical scrolling be controlled? 


Why are time delays useful in a microcomputer BASIC program? How can such time delays be 
generated? 


Compare the use of finite time delays (i.e., time delays that last for some specified period of time) with 
untimed delays (interruptions that remain in effect until the user presses a key, еіс.). Under what 
circumstances is each type of time delay most suitable? 


Describe the major groups of keys on a typical microcomputer keyboard. What is the purpose of each 
major group? 


Does the version of BASIC available on your particular microcomputer include a provision for 
programming the function keys? If so, how is this accomplished? 


What is a light pen? For what kind of applications is this device useful? 


Does the version of BASIC available on your particular microcomputer include a provision for 
programming a light pen? If so, how is this accomplished? 


What is a joystick? For what kinds of applications is this device useful? 


Does the version of BASIC available on your particular microcomputer include a provision for 
programming a joystick? If so, how is this accomplished? 


What is a mouse? For what kinds of applications is this device useful? (Compare with a joystick.) 


Does the version of BASIC available on your Particular microcomputer include a provision for 
Programming a mouse? If so, how is this accomplished. 


What is the purpose of the COLOR statement when in the text mode (in contrast to the graphics mode)? 
What is each parameter used for? 


How is the COLOR statement interpreted by a microcomputer that is equipped with a monochromatic 
TV monitor? 


What is the purpose of the SCREEN statement? What is each Parameter used for when in the text 
mode? 


Does your particular microcomputer include the COLOR and SCREEN statements? If not, are there 
other statements that accomplish the same thing? 


What is the purpose of the BEEP statement? 


What is the purpose of the SOUND statement? What is the Purpose of each parameter? 


CHAP. 10] THE MICROCOMPUTER ENVIRONMENT 287 


10.28 How can the COLOR, BEEP and SOUND statements be used to enhance a BASIC program that is 
nongraphical in nature? 


10.29 Describe the use of the EDIT command. For what types of editing situations is this command well 
suited? 


10.30 Describe how editing can be accomplished using the full-screen editing feature found in many versions of 


microcomputer BASIC. Under what circumstances is full-screen editing preferable to the repeated use of 
the EDIT command? 


10.31 Does your particular version of microcomputer BASIC include the EDIT command (or a comparable 
command)? Does it support full-screen editing? 


10.32 Compare the use of a text editor with the use of the full-screen editing feature that is available in many 
versions of microcomputer BASIC. Which is better, and under what circumstances? 


10.33 How can a BASIC program be saved as an ASCII file with your particular version of microcomputer 
BASIC? 


Supplementary Problems 


The following “problems” are concerned with information gathering rather than actual problem 
solving. Answer the questions as they apply to your particular version of microcomputer BASIC. 


10.34 How are complete file designations written for your particular microcomputer? How are multiple disk 
drives distinguished from one another? 


10.35 What system commands are available in your version of BASIC? How do these system commands differ 
from the traditional system commands described in Chapter 3? 


10.36 What is the maximum number of lines that can be displayed on your TV monitor? What is the maximum 
number of characters per line? 


10.37 How can the screen be cleared within your version of BASIC? 


10.38 How can the cursor be positioned when a program is being edited? How can the cursor be positioned 
within your version of BASIC? 


10.39 How can vertical scrolling be initiated and controlled within your version of BASIC? 


10.40 How can a timed pause (i.e., a pause for a definite time period) be generated during program execution 
with your version of BASIC? How can an untimed pause (i.e., a pause for an unspecified time period) be 


generated? 


10.41 How can output be diverted from a TV monitor to a printer? Does this include formatted output? 


10.42 Does your microcomputer keyboard include cursor movement keys and/or function keys? If so, are there 
special BASIC statements that allow these keys to be programmed? 


10.43 Does your microcomputer support the use of special peripheral devices, such as a light pen, joystick or 
mouse? If so, are there special BASIC statements that allow these devices to be programmed? 
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10.44 


10.45 


10.46 


10.47 
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Does your microcomputer Support colored text? If so, how is the color specified in BASIC? Can the 
background color be specified separately? Is there a separate border color? 


Is there a special command to “Беер” the speaker in your version of BASIC? 


Does your version of BASIC allow various sounds to be generated under program control? If so, what 
command is used to do this? How are the frequency and the duration specified? 


Does your version of BASIC include a line-editing capability? If so, how is the cursor moved within the 
line being edited? How are characters inserted and deleted? 


Programming Problems 


Most of the problems given below require the use of color. If you do not have a color monitor, 
substitute different monochrome attributes (e.g., high intensity, inverse or flashing text) for different 


colors. 


10.48 


10.49 


10.50 


10.51 


10.52 


Modify the program given in Example 10.14 to include the use of the function keys F1 through F4. 
Utilize the function keys in the following manner. 


F1—select the foreground color 
F2—select the background color 
F3—select the border color 
F4—end the computation 


Have the computer “Беер” whenever a color is changed. 
You may wish to replace the message 


Programming with BASIC is lots of fun! 


with a message of your own chice. 


Modify the inventory control program (Example 9.31) so that zero inventories appear in a different color 
(e.g., red) than the other text displayed on the screen. 


Modify the program for generating Fibonacci numbers and searching for primes (Example 9.11) so that 
the prime numbers appear in a color that is different than the remaining text. Have the computer “Беер” 
whenever a prime number is printed. 


Problem 9.63 asks you to solve Problem 5.55 (computation of student exam scores, including the class 
average and the deviation of each student’s average about the class average) using the enhanced features 
available in your version of microcomputer BASIC. Solve Problem 9.63, adding the use of color to the 
display of the output data. 

In particular, display all the text in the same color except the class average and the deviation of each 
student’s average about the class average. Display the class average in some other color, and the 
deviations in a third color. 


Problem 9.55 asks you to rewrite the Piglatin generator given in Example 9.28 so that it can 
accommodate several additional features, such as multiline text, punctuation marks and double-letter 
sounds. 

Rewrite the piglatin generator as indicated in Problem 9.55. In addition, however, add a provision so 
that the English text (i.e., the input data) is shown on the TV monitor in one color and the piglatin (the 
corresponding output) is shown in another color. Utilize three different functions keys to change the 
colors of the English text, the piglatin text and the background, respectively. Have the computer “Беер” 
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10.53 


10.54 


10.55 


10.56 


10.57 


10.58 


10.59 


10.60 


10.61 


10.62 


10.63 


10.64 


at the start of each piglatin translation (each new block of output). Utilize a function key to switch the 
beeping on and off. 


Rewrite the program for calculating depreciation (Example 4.9) so that each column of numbers is shown 
on the TV monitor in a different color. 

Utilize the advanced features offered by your version of microcomputer BASIC wherever И is practical 
to do so. In particular, use the function keys to select the method used to calculate the depreciation (e.g., use 
F1 to select straight-line depreciation, F2 to select the double declining balance method, ЕЗ to choose 
sum-of-the-years'-digits and F4 to end the computation). Display a brief “menu” at the top of the screen, 
indicating the purpose of each function key. Show the results of each calculation on a separate screen 
(i.e., clear the screen between calculations). 


Modify the “hello” program given in Example 10.12 (Programming a Light Pen) to include the use of 
color. Specifically, display the list of languages in one color and the corresponding greeting in another. 
Have the computer “beep” whenever a greeting is displayed. 


Rewrite the program given in Example 10.12 so that a language can be selected with the function keys 
rather than a light pen. Include the use of color, as described in Problem 10.54. 


Rewrite the program given in Example 10.12 so that a language can be selected with a joystick rather 
than a light pen. Include the use of color, as described in Problem 10.54. 


Rewrite the program given in Example 10.12 so that a language can be selected with a mouse rather than 
a light pen. Include the use of color, as described in Problem 10.54. 


Solve Problem 5.56 (matching countries with their capitals) using the function keys to select either a 
country or a capital. Be sure to use the enhanced features included in your version of microcomputer 
BASIC wherever it is practical to do so. Also, utilize color and sound, as described in Problem 10.54. 


Repeat Problem 10.58 using each of the following programmable input devices to select either a country 
or a capital. 

(a) Light pen (b) Joystick (c) Mouse 

Be sure to enhance your program through the effective use of color and sound. 


Modify the program given in Example 10.13 (Programming a Joystick) so that the function keys can be 
used to select different foreground and background colors. Design the program in such a manner that 
different colored asterisks can be displayed against a uniform background. Allow the background color 


to be changed at any time. 
Repeat Problem 10.60 using a mouse rather than a joystick. 


Modify the program given in Example 10.16 so that an “up-and-down” siren sound is generated. Include 
a provision that automatically changes the foreground and background colors each time the siren sound 


is generated. 


Write a BASIC program that will generate a musical scale in the key of C. Include provisions for 
selecting an ascending scale, a descending scale or both (i.e., a scale that goes up and then down). Allow 
the choice to be made by selecting an appropriate function key. Display a “menu” in the upper left 
portion of the screen indicating the purpose of each available function key. (Your programmer's 
reference manual may tell you what frequencies to specify in order to generate musical tones.) 


Write a BASIC program that will play a simple melody on your computer's speaker. (Your program- 
mer's reference manual may indicate how musical notes can be generated in BASIC with your particular 


computer.) 


Chapter 11 


User-Friendly Programming 


The highly interactive microcomputer environment encourages the use of user dialogs in many 
BASIC programs. These dialogs usually involve some form'of question-answer interaction where the 
computer asks the questions and the user provides the answers. This technique works very well when 
the questions are simple and few in number. In some applications, however, the questions may be 
numerous, complicated or repetitious, resulting in possible confusion, frustration or distraction on the 
part of the user. Data-input errors are much more likely to occur under such conditions. Moreover, 
the user may conclude that the program is too difficult or too irritating to use comfortably and may 
therefore avoid its use in the future. 

Such problems can often Ts eliminated by including user-friendly features, such as prompts, 
menus, error-checks and user verification, within the program. These features generally simplify the 
use of the program, though their adoption usually requires more work on the part of the pro- 
grammer. 

We will discuss the use of several user-friendly techniques in this chapter. 


11.4 PROMPTS 


A prompt is a brief instruction or explanation that is generated by the computer prior to a 
request for information. Thus, a prompt may explain what kind of information is requested or what 
answers are permitted. The creation of a dialog between the user and the computer is largely 
accomplished through the intelligent use of such prompts. 

We have already éncountered the use of prompts in several of the examples presented in earlier 
chapters of this book. For the most part, however, these prompts have been very brief. We now 
consider the use of more detailed prompts, accompanied by error-checking routines that test the 
validity of the input data. 


EXAMPLE 11.1 


Suppose that a microcomputer BASIC program is required to prompt the user for a student examination 
score, whose value will be between 0 and 100 percent. The program might include the following INPUT 
statement, which includes an acceptable prompt. 


100 INPUT "Exam score (0-100): ",SCORE 


The prompt tells the user what information is required, and it indicates the range of permissible values. The 
program does not, hówever, check to determine if the value actually entered by the user (i.e., the value assigned 
to SCORE) falls within the required range. 

Here is a similar prompt, which is accompanied by an error check for incorrect numerical input values. 


100 LOCATE 5,1: INPUT "Exam score (0-100): " „ SCORE 
110 IF SCORE < O OR SCORE > 100 THEN BEEP: LOCATE 3,1: 
PRINT SPACE#(30): GOTO 100 


Now if SCORE is assigned a numerical value which is outside the permissible range, the computer will beep 
(indicating an error), the previous value will be erased from the screen (actually, the entire line will be written 
over by 30 blank spaces) and the prompt will appear again in its original location. The program will continue this 
looping procedure until the user enters an acceptable value for SCORE. 

The two statements shown above are adequate for trapping incorrect numerical values, but there is still the 
possibility that the user might enter a letter or some other nonnumerical character rather than a number. Here is 
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a prompt accompanied by a more comprehensive error check which includes a test for unwanted characters as 
well as a test for inappropriate numbers. 


100 LOCATE 3,1: INPUT "Exam score (0-100): " ,ANS$ 
110 IF LEFT$(ANS$,1)="O" THEN SCORE=0: GOTO 150 
ELSE SCORE-VAL (ANS$) 


120 IF SCORE <= 0 OR SCORE > 100 THEN ВЕЕР: LOCATE 3,1: 
PRINT SPACE$(CSO): GOTO 100 
130 . . . next statement . . . 


Now the user's response is initially entered as a string (ANS$) rather than a numerical value. If the user 
deliberately enters the value 0, the program recognizes this in line 110, assigns a value of 0 to SCORE and then 
transfers out of the loop to line 130. If anything else is entered, however, the value of ANS$ is converted directly 
to a numerical value and assigned to SCORE. Any nonnumerical character will automatically be converted to 0, 
which will now be unacceptable because of the test in line 120. Thus, we are now able to detect unwanted 
nonnumerical characters as well as numerical values that do not fall within the acceptable range. 


EXAMPLE 11.2 Entering Student Examination Scores 


In Example 9.29 we encountered a BASIC program that creates a sequential data file containing a group of 
student examination scores. The actual program, written in Microsoft BASIC for the IBM Personal Computer, is 
shown in Fig. 9.8. 

Let us now alter this program to make it more conversational, and consequently easier to use, by adding 
some additional prompts with corresponding error checks. The new program is shown in Fig. 11.1. The overall 


10 ‘###### CREATE А SEQUENTIAL DATA FILE жене 


50 “жжжжжж (ENTER STUDENT EXAMINATION SCORES - VERSION 2) 39 
40 ' 

50 DIM SCORE (12) 

60 OPEN "0",1,"SCORES" 

70 KEY OFF: CLS: WIDTH 80 

ВО LOCATE 1,1: INPUT "Course title: ",TITLE¢ 

90 LOCATE 3,1: INPUT "Term: “, TERMS 

100 LOCATE 5,1: INPUT "How many exam scores per student? (1-12) ",ANSf 
110 N=VAL (ANS$) 

120 IF N < 1 OR N > 12 THEN BEEP: LOCATE 5,1: PRINT SPACE$ (40): GOTO 100 
130 PRINT &1,TITLE$ 

140 PRINT #1,TERM$ 


150 COUNT-1 

160 ' 

170 “жжж BEGIN LOOP жж 
180 ' 


190 CLS: PRINT "Student number"; COUNT ti 
200 LOCATE 3,1: INPUT "Student name (Type END to end data entry): „№ 
210 IF N$-"END" OR N$-"end" THEN 330 

220 PRINT &1,N$ 

250 FOR I=1 TO N 


24 PRINT "Exam number";I;" (0-100): "32 INPUT "",ANS$ 
250 pae 1)="0" THEN SCORE(I)=0: GOTO 270 ELSE SCORE (1) =VAL (ANS$) 


260 ТЕ SCORE(I) <= О OR SCORE (I) > 100 THEN ВЕЕР: LOCATE 1+4,1: 
PRINT ЗРАСЕ$ (60): GOTO 240 ELSE PRINT #1,SCORE(I); 

270 NEXT I 

280 PRINT #1,"" 

290 COUNT=COUNT+1: GOTO 190 


510 “"жжж END LOOP жж” 


550 CLOSE 
540 END 


Fig. 11.1 
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program logic is similar to that used in the earlier program. Now, however, we have added prompts and 
corresponding error checks for each of the numerical input quantities. In particular, notice that lines 100 through 
120 prompt for the number of exam scores per student and then check the values that are entered. Similarly, 
lines 240 through 260 primpt for the value of each exam score and then check the values that are entered. The 


error-checking procedures are very similar to the prototype presented in Example 11.1. ° 
In addition, this program makes use of а number of screen-control features, and it is more general in the 


sense that it can accommodate from 1 to 12 examinations per student. Observe the use of a FOR-TO loop (lines 
230 to 270) to enter each student's exam scores from the keyboard and write them to the sequential data file. 

Figures 11.2 and 11.3 illustrate a typical user dialog that occurs when the program is executed. Figure 11.2 
shows the initial dialog that prompts for the course title, the term and the number of exams per student. The 
user's responses have been underlined. 


Course title: Comp Sci 141 
Term: Fall 1985 


How many exam scores per student? (1-12) 5 


Fig. 11.2 


Student number 1 
Student name (Type END to end data entry): Adams B F 


(0-100): 45 
(0-100): BO 
(0-100): 80 
(0-100): 95 
(0-100): 55 


Fig. 11.3 


Exam number 
Exam number 
Exam number 
Exam number 
Exam number 


иам 


Figure 11.3 shows the dialog requesting the пате and exam scores of the first student. Again, the user's 
responses are underlined. This same dialog will be repeated for each successive student until the word END is 
entered for the student name. 

Unfortunately, these figures are not able to illustrate the effects of the error checks. The reader is therefore 
encouraged to actually run this program and enter incorrect information in order to gain some insight into the 
way the error checks work. 


112 MENUS 


Some programs require that the user select one of several different options that may be available. 
Usually, the selection is best accomplished by choosing from a menu, i.e., a display which lists all the 
options, with a distinct number or letter corresponding to each option. The user can then make his or 
her selection simply by typing the appropriate number or letter. This menu-selection process is very 
simple and tends to minimize the likelihood of errors. 


EXAMPLE 11.3 


Suppose that a Microsoft BASIC program, written for the IBM Personal Computer, includes a provision for 
selecting one of four different background colors. The program might include the following statements, which 
generate a menu and allow the user to choose accordingly. 


CHAP. 11] USER-FRIENDLY PROGRAMMING 293 


100 CLS 

110 LOCATE 1,1: PRINT "Background Colors:" 
120 LOCATE 3,1: PRINT " 1 - Blue" 

130 LOCATE 4,1: PRINT " 2 - Green" 

140 LOCATE 5,1: PRINT " 3 - Red" 

150 LOCATE 6,1: PRINT " 4 - White" 


160 LOCATE 8,1: INPUT "Please enter your selection: ",ANS$ 
170 CHOICE-VAL (ANS$) 


180 IF CHOICE < 1 OR CHOICE > 4 THEN BEEP: LOCATE 8,1: 
PRINT SPACE$(60): GOTO 160 
190 ON CHOICE GOTO 200,300,400,500 


When the program is executed, the following menu will appear on the screen: 


Background Colors: 


- Blue 
— Green 
Red 

White 


PUNE 
1 


Please enter your selection: 


The user will respond by entering 1, 2, 3 or 4. The program would then select the correct background color, 
presumably by branching to line 200, 300, 400 or 500 as directed by the ON-GOTO statement in line 190. 
Notice that lines 160 through 180 contain a prompt and a corresponding error check that will cause any 
input value other than 1, 2, 3 or 4 (including nonnumeric characters) to be rejected. Thus, the user is allowed to 
respond only by entering one of the given menu choices. 
In this particular example we could have used letters rather than numbers for menu choices. А logical 
choice would be to use the first letter of each color. Thus, the menu might appear as follows: 


Background Colors: 


B - Blue 
8 - Green 
R - Red 

W - White 


Please enter your selection: _ 


This would work well for this particular group of colors, since each of the colors begins with a different letter. If 
two or more colors began with the same letter, however (e.g., if black were also available), then the use of first 
letters as menu items would not be possible. It would, of course, be possible to choose other letters so that each 
menu item would have a unique letter. This might create confusion on the part of the user, however, and would 
therefore be undesirable. 


Some programs may include both a main menu and one or more submenus. In such situations it 
may be desirable to use both letters and numbers as menu choices. For example, numbers might be 
used in the main menu and letters in the submenus. An illustration of this technique is shown in the 
next example. 


EXAMPLE 11.4 Personal Finance (Compound Interest Calculations) 


Many problems in consumer economics are concerned with compound interest calculations. In particular, 
we often wish to know how much money will accumulate in a savings account or how much it will cost to repay a 
loan for a give time period, a given interest rate and a given frequency of compounding. 

In this example we consider three calculations of this type. They are 
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1. Future value of a given amount of money 
2. Future value of a series of monthly deposits 
3. Monthly loan repayments 


We will develop a single menu-driven program that will allow all of these calculations to be carried out on an 
IBM Personal Computer. The program will be written in Microsoft BASIC. 

Тһе necessary equations for each type of calculation are given below. These equations make use of the 
following symbols. 


P = present sum of money, either deposited or borrowed 
F = future accumulation of money 
A = uniform monthly deposit or uniform monthly payment 
i = annual interest rate (expressed as a decimal) 
m = number of interest periods per year 
n = number of years 
Here are the actual equations. 
1. Future value (F) of a given amount of money (Р) 


(a) Annual, semiannual, quarterly, monthly or daily compounding (m = 1, 2, 4, 12 or 365, respec- 
tively) 


F = Р(1+ йт)" 
(Б) Continuous compounding 
Е = Ре" 


2. Future value (Е) of а series of monthly deposits (А) 
(a) Annual, semiannual, quarterly or monthly compounding (m = 1, 2, 4 or 12, respectively) 


zaje + i/m)™" – :] 


Ez ( ilm 


m 
(b) Daily compounding (m = 365) 


— 


F= 
2 (1+i/m)y”2-1 


(c) Continuous compounding 


3. Monthly repayments (A) of a loan (P) 
(a) Annual, semiannual, quarterly or monthly compounding (m = 1, 2, 4-ог 12, respectively) 
ЖЕ (=) + Ыш 
12 /L (1+ i/m)”—1 
(b) Daily compounding 
(1+ my"? — 4 


A=P(1+ іт) aaa 


(c) Continuous compounding 


па, م‎ 1 


е"-1 
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Design of the Program 

Let us design a program that is conversational in nature and as general as possible, within practical limits. 
The program will begin by displaying a main menu which allows the user to select one of the three different types 
of calculations or to end the computation. The screen will then clear and the program will prompt for the re- 
quired input data. А submenu will be used to assist the user in specifying the frequency of compounding. 

Once the data have been supplied, the appropriate calculations will be carried out and the answer displayed 
at the bottom of the screen. The screen will remain unchanged until the user presses any key, which will then 
return the user to the main menu. 
The Program Outline 

In order to outline the program, let us define the following variables. 


P = present sum of money 
Е = future accumulation of money 
A = uniform monthly deposit (or payment) 
RATE = annual interest rate, expressed as a percentage 
I= annual interest rate, expressed as a fraction (note that I= 0.01*RATE) 
M% = number of interest periods per year (e.g., M% = 12 for monthly compounding) 
N% = number of years 
CHOICE = a variable which determines which type of calculation will be carried out (CHOICE will be 
assigned a value of 1, 2, 3 or 4) 


F$ = a variable which determines the frequency of compounding (F$ will be assigned “A”, “S”, 
“Q”, “М”, “D” or “C” for annual, semiannual, quarterly, monthly, daily or continuous 


compounding) 
The program will proceed as follows. 


. Display the main menu. 
2. Read a value for CHOICE. у y 
3. Branch to an appropriate subroutine, as determined by the value assigned to CHOICE. 
(a) CHOICE = 1 (future value of a given amount of money). 
(i) Read a value for P. 
(1) Read values for N% and RATE and calculate a value for I using the formula 
I= .01*RATE. 
(iii) Display the submenu. 
(iv) Read a value for F$. 
(v) Assign an appropriate value to M%. 
(vi) Calculate a value for F, using the appropriate formula. 
(уі) Display the value of F. 
(viii) Return to the main menu. 
(b) CHOICE = 2 (future value of series of monthly payments). 


(i) Read a value for A. 
(ii) Read values for N% and RATE and calculate а value for I using the formula 


I= .01*КАТЕ. 
(іі) Display the submenu. 
(iv) Read а value for F$. 
(v) Assign an appropriate value to M%. 
(vi) Calculate a value for F, using the appropriate formula. 
(уі) Display the value of F. 
(уін) Return to the main menu. 


DISPLAY 


CALCULATE 
Е 


CALCULATE 
Р 


RETURN 


CHOICE = 4 


CALCULATE 
A 
CALCULATE 
A 


CALCULATE 
F 


CALCULATE 
F 


Fig. 11.4 (Continues on next page) 
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DISPLAY 
SUBMENU 


M%=365 


Fig. 11.4 (continued) 
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(c) CHOICE = 3 (monthly loan repayments). 
(i) Read а value for P. 
(ii) Read values for №№ and RATE and calculate a value for I using the formula 
I= .01*RATE. 
(ii) Display the submenu. 
(iv) Read a value for F$. 
(v) Assign an appropriate value to M%. 
(vi) Calculate a value for A, using the appropriate formula. 
(уі) Display the value of A. 
(viii) Return to the main menu. 
(d) CHOICE = 4 (end). 
Display a sign-off message and end the computation. 


Notice that steps (ii), (iii), (iv) and (v) are the same in parts 3(a), 3(b) and 3(c). The instructions for this 
portion of the program will therefore be placed in a separate, independent subroutine. This subroutine will 


include the generation of the submenu. 
Figure 11.4 presents a flowchart that corresponds to the above outline. 


The BASIC Program 

The complete BASIC program is shown in Fig. 11.5. Notice that the program is somewhat long, due to the 
use of prompts, error checks and menus. These user-friendly features simplify the use of the program, though 
they require additional work on the part of the programmer. 

Figures 11.6(а) and 11.6(5) illustrate a typical interactive session. In Fig. 11.6(a) we see the main menu with 
the user's selection (shown underlined) of option number 1 (i.e., future value of a given amount of money). The 
dialog resulting from this selection is shown in Fig. 11.6(b) Notice the submenu, titled “Frequency of 
Compounding,” which appears after the prompts for the original amount of money, the number of years and the 
interest rate. Finally, we see the calculated answer near the bottom of the figure. Thus, we see that an original 
investment of $1000 will increase to $3262.04 if it is allowed to accumulate interest at 12 percent per year, 
compounded quarterly, for 10 years. 

Figures 11.7 and 11.8 illustrate the dialog resulting from options 2 and 3, respectively. Specifically, Figs. 
11.7(a) and 11.7(b) refer to the future value of a series of monthly deposits, and Figs. 11.8(a) and 11.8(b) 
illustrate the monthly repayment rate for a loan. Figure 11.9 shows what happens when the program is ended. 


10 “жжжжжж COMPOUND INTEREST CALCULATIONS жжжжжж 


30 KEY OFF: CLS 

40 LOCATE 1,1: CLS: PRINT "COMPOUND INTEREST CALCULATIONS" 

SO LOCATE 3,1: PRINT " 1 - Future Value of a Biven Amount of Money" 

60 LOCATE 5,1: PRINT " 2 - Future Value of a Series of Monthly Deposits" 

70 LOCATE 7,1: PRINT" 5- Monthly Loan Repayments" 

80 LOCATE 9,1: PRINT " 4 - End" 

90 LOCATE 11,1: INPUT "Please enter your selection: ",ANS$ 

100 CHOICE-VAL(ANS$): IF CHOICE < 1 OR CHOICE > 4 THEN BEEP: LOCATE 11,1: 
PRINT SPACE#(60): GOTO 90 

110 ON CHOICE GOSUB 150,270,420,840: GOTO 30 


150 “жжжжжж FUTURE VALUE OF A GIVEN AMOUNT OF MONEY (F/P) жәнее 


150 CLS: LOCATE 1,1: PRINT "FUTURE VALUE OF A GIVEN AMOUNT OF MONEY" 
mod LOCATE 3,1: INPUT "Original Amount of Money: $",ANS$ 
P=VAL(ANS#): IF Р <= О THEN BEEP: LOCATE 3,1: PRINT : 
180 ВОВ eae , БЗРАСЕ$ (60): GOTO 160 
190 IF F$-"C" OR F$="c" THEN F=P#EXP(I#N%) ELSE FzP*(1*I/MAX) ^ (MXN) 
200 LOCATE 18,1: PRINT "FINAL AMOUNT ="; 
210 PRINT USING "%%#######,.##";Е 
220 GOSUB 790 
230 RETURN 


Fig. 11.5 (Program continues on next page) 
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240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 


470 
480 


490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 


610 
620 
630 
640 
650 
660 
470 
680 


740 
750 
780 
770 
780 
790 
800 
810 
820 
850 
840 
850 


HERRE FUTURE VALUE OF A SERIES OF CONSTANT MONTHLY DEPOSITS (F/A) w***#** 


CLS: LOCATE 1,1: PRINT "FUTURE VALUE OF A SERIES OF MONTHLY DEPOSITS" 
LOCATE 5,1: INPUT "Amount of Each Payment: $",ANS$ 

A=VAL(ANS#): IF А <= O THEN BEEP: LOCATE 5,1: PRINT БРАСЕ$ (60): GOTO 280 
GOSUB 570 

IF F$="C" OR |F$="c" THEN F=A¥ (EXP (I#N%)-1) /(EXP(1/12)-1): GOTO 350 
FACTOR=(1+1/M%) ^ (MXN) -1 

IF F$-"D" OR F$-"d" THEN F=A*FACTOR/ ((1+1/M%)*(M%/12)-1): GOTO 350 

Е= (12%А/МХ) *FACTOR/ CI/MX) 

LOCATE 18,1: PRINT "FINAL AMOUNT ="; 

PRINT USING "$%#######,.##";Е 

GOSUB 790 

RETURN 


'#####+ MONTHLY LOAN REPAYMENTS (A/P) жэн» 


CLS: LOCATE 1,1: PRINT "MONTHLY LOAN REPAYMENTS" . 

LOCATE 3,1: INPUT "Amount of Money Borrowed: %",АМ5% 

P=VAL(ANS#): IF P <= O THEN BEEP: LOCATE 3,1: PRINT ЅРАСЕ (50): GOTO 430 
GOSUB 570 E 

IF F$-"C" OR F$="c" THEN A=P# (EXP CI*NZ)* (ЕХР (1/12) 12) / (EXP (I#NZ) 21) : 
GOTO 500 

РАСТОБ= (1+1/MZ) ^ (MZ*N7.) =1 

IF F$-"D" OR F$z"d" THEN A-P*(FACTOR*1)3 (14 I/MX)^(M4/12) -1) /FACTOR: 
GOTO 500 

A=(MZ*P/12) * CIAMZ) + CFACTOR*1) /FACTOR 

LOCATE 18,1: PRINT "MONTHLY PAYMENT ="; 

PRINT USING "%%######,.##";А 

GOSUB 790 

RETURN 


“жжжжжж OBTAIN INPUT INFORMATION жәнек 


LOCATE 4,1: INPUT "Number of Years: ",АМ5$ 

NX-VAL(ANS$): IF NX <= O THEN BEEP: LOCATE 4,1: PRINT SPACE#(60): GOTO 570 
LOCATE 5,1: INPUT "Annual Interest Rate (Percent): ",ANS$ 

I-.01*VAL(ANS$): IF I <= O THEN ВЕЕР: LOCATE 5,1: PRINT БРАСЕ$ (60): GOTO 590 


LOCATE 7,1: PRINT "Frequency of Compounding:" 
LOCATE 9,1: PRINT " A - Annual" 

LOCATE 10,1: PRINT " 8 - Semiannual" 

LOCATE 11,1: PRINT " 0 - Quarterly" 

LOCATE 12,1: PRINT " M - Monthly" 

LOCATE 13,1: PRINT " D - Daily" 

LOCATE 14,1: PRINT " C - Continuous" 

LOCATE 16,1: INPUT "Please enter your selection: ",F$ 
IF F$="Q" OR F$="a" THEN МХ=1: RETURN 

OR F$="s" THEN MX-2: RETURN 

THEN MX-4: RETURN 

THEN MX-12: RETURN 

OR F$="d" THEN MZ=365: RETURN 

ТЕ F$-"C" OR F$="c" THEN RETURN 

BEEP: LOCATE 16,1: PRINT SPACE$(60): GOTO 680 


‘HHHH PAUSE 3009€ 


LOCATE 22,1: PRINT "(Press апу key to continue)"; 
ANS$=INPUT$(1): RETURN 


“жыны SIGNOFF жез 


LOCATE 15,1: PRINT "GOODBYE, COME AGAIN!" 
END. 
Fig. 11.5 (continued) 


COMPOUND INTEREST CALCULATIONS 
1 — Future Value of a Given Amount of Money 
2 - Future Value of a Series of Monthly Deposits 
5 - Monthly Loan Repayments 
4 — End 
Please enter your selection: 1 
qaos 
FUTURE VALUE OF А GIVEN AMOUNT OF MONEY 


Original Amount of Money: $1000 
Number of Years: 10 
Annual Interest Rate (Percent): 12 


Frequency of Compounding: 


A - Annual 

$ - Semiannual 
Q - Quarterly 

М - Monthly 

D - Daily 

С - Continuous 


Please enter your selection: a 
FINAL AMOUNT = $3,262.04 


(Press any key to continue) 


(b) 
Fig. 11.6 


COMPOUND INTEREST CALCULATIONS 
1 - Future Value of a Given Amount of Money 
2 - Future Value of a Series of Monthly Deposits 
$ - Monthly Loan Repayments 
4 - End 
Please enter your selection: 2 
S 
FUTURE VALUE OF A SERIES OF MONTHLY DEPOSITS 


Amount of Each Payment: $100 
Number of Years: 7 
Annual Interest Rate (Percent): B.5 


Frequancy of Compounding: 


А - Annual 

S - Semiannual 
Q - Quarterly 
M - Monthly 

D - Daily 


C - Continuous 
Please enter your selection: M 
FINAL AMQUNT = $11,424.37 


(Press any key to continue) 
(b) 
Fig. 11.7 


300 
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COMPOUND INTEREST CALCULATIONS 


1 Future Value of а Given Amount of Money 


Future Value of a Series of Monthly Deposits 


2 
3 Monthly Loan Repayments 
4 — End 

Please enter your selection: $ 


(a) 


MONTHLY LOAN REPAYMENTS 

Amount of Money Borrowed: $5000 
Number of Years: S 

Annual Interest Rate (Percent): 12.5 


Frequency of Compounding: 


A - Annual 

8 - Semiannual 
Q - Quarterly 
M - Monthly 

D - Daily 

C - Continuous 


Please enter your selection: c 
MONTHLY PAYMENT = $112.66 
(Press any key to continue) 
(b) 
Fig. 11.8 


COMPOUND INTEREST CALCULATIONS 


1 


Future Value of a Given Amount of Money 


Future Value of a Series of Monthly Deposits 


2 
3 Monthly Loan Repayments 

4 - End 

Please enter your selection: 4 
GOODBYE, COME AGAIN! 


Fig. 11.9 


11.3 ERROR CHECKING 


We have already seen several examples of error checking in the earlier sections of this chapter. 
All these error checks were concerned with data-input errors. There are, however, other types of 
errors that can occur within a BASIC program. These include syntax errors (e.g., FOR without 
NEXT, subscript out of range, missing operand, etc.), run-time errors (e.g., division by zero, 
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numerical overflow), disk I/O errors (e.g., file not found, disk full) and hardware errors (e.g., device 
unavailable, printer out of paper). > 

Most versions of microcomputer BASIC include special error-trapping statements that can detect 
specific errors when they occur and then transfer control to an error correction routine within the 
program. This is usually accomplished by means of the ON ERROR-GOTO statement (e.g., ON 
ERROR GOTO 200), as described in Section 9.2. 

The errors themselves are usually encoded in a numerical format (e.g., error number 11 might be 
division by zero). It is then possible to write an IF statement that takes remedial action once a 
specific type of error has been detected (e.g., IF ERR=11 THEN PRINT “Division by zero”). 


EXAMPLE 11.5 


Presented below is a portion of a Microsoft BASIC program that enters two numbers, calculates the square 
root of their difference and displays the result. The routine is error-trapped to generate a message and then 
repeat the data entry routine if the difference in the numbers is negative. 


200 ON ERROR GOTO 500 
210 INPUT "X=";X 

220 INPUT "у=";у 

230 Z-8üR(X-Y) 

240 PRINT "Z=";Z 

250 ON ERROR GOTO O 


500 IF ERR=5 AND ERL-230 THEN PRINT "Attempt to take square root 
Of negative number": PRINT "Please enter data again": PRINT: 
RESUME 210 


The ON ERROR statement in line 200 causes a transfer of control to line 500 if an error (any error) is 
detected during program execution. The IF-THEN statement in line 500 tests for error number 5 (illegal 
function call) in line 230. If an error is detected, an error message is generated and control is transferred back to 
line 210, thus allowing the user to reenter the data. 

Note that the last transfer of control is carried out via a RESUME statement rather than GOTO. RESUME 
is a special statement that is intended for use at the conclusion of an error-trapping routine (see Section 9.2). 

Finally, notice the ON ERROR-GOTO 0 statement in line 250. This statement disables any subsequent 
error checking within the Program. In other words, the ON ERROR GOTO 0 statement effectively negates any 
error trap that may have been defined previously, ; 


EXAMPLE 11.6 Processing Student Examination Scores 


allows the user to specify whatever file name he or she may wish. (In the earlier version, the file name was 
Tequired to be SCORES.) Thus, line 80 Prompts the user for the file name, and line 350 causes the newly 


statement LOCATE CSRLIN-1,1 in several Places. This statement repositions the cursor to the beginning of the 
Previous line. (Note that lines 160 and 250 do not include LOCATE statements; hence any repositioning of the 
cursor must be included within the error-checking routines.) 
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10 ^X PROGRAM TO PROCESS STUDENT EXAMINATION SCORES 33x 
20 ‘ныне USING SEQUENTIAL DATA FILES ыды 


40 KEY OFF: CLS 

50 DIM C(15) 

60 PRINT "UPDATING STUDENT EXAMINATION SCORES" 

70 ON ERROR GOTO 390 

80 PRINT: INPUT "File name: ",F$ 

90 OPEN "І",1,Ғ% 

100 OPEN "O",2, "UPDATE" 

110 ON ERROR GOTO O 

120 INPUT #1,TITLE$ 

130 INPUT #1,TERM$ 

140 PRINT: PRINT "Course title: ";TITLE$;SPC(10);"Term: "; ТЕРМ% 

150 PRINT $2,TITLE$: PRINT %2,ТЕКМ% 

160 PRINT: INPUT "Exam number (1-15): ",АМ8%: K-VAL(ANS$) 

170 IF K < 1 OR K > 15 THEN BEEP: LOCATE CSRLIN-1,1: PRINT SPACES (40) : 
LOCATE CSRLIN-2,1: GOTO 160 

180 PRINT: INPUT "Calculate averages (Y/N) ";ANS$ 


200 “жжж BEGIN LOOP *** 


220 PRINT: INPUT #1,N$ 

230 FOR 1=1 TO K-1: INPUT #1,C(I): NEXT I 

240 PRINT Nf, 

250 INPUT "New score (0-100): ",ANSf 

260 IF LEFT$(ANS$,1)-"O" THEN C(K)=0: GOTO 280 ELSE C(K)-VAL (ANS$) 

270 IF C(K) <= O OR C(K) > 100 THEN BEEP: LOCATE CSRLIN-1,1: PRINT SPACE$ (40): 
LOCATE CSRLIN-1,1: GOTO 240 

280 PRINT %2,М% 

290 SUM-O 

300 FOR Ізі TO К: PRINT #2,С(1);: SUM=SUM+C(I)s NEXT I 

310 IF ANS$="N" OR ANS$-"n" THEN 350 

520 AVG=SUM/K 

330 PRINT "Average ="; AV6 

340 PRINT #2,AVG 

350 IF МОТ EOF(1) THEN 220 ELSE CLOSE: KILL F$: NAME "update" AS F$: END 


370 'w** ERROR TRAP FOR INPUT FILE NAME *** 


390 IF ERR=53 AND ERL=90 THEN PRINT: PRINT "File does not exist": RESUME 80 
400 END 


Fig. 11.10 


There is also a check to determine if the specified data file is present on the current diskette (line 390). If the 
data file is not present, an error message is displayed and the user is again prompted for the name of the data 
file. Notice that this error check is activated by the ON ERROR statement (line 70), in contrast to the other 
error checks which check the input data directly. Notice also that this error check ends with a RESUME 
statement which transfers control back to line 80. And finally, notice that the error check for the file name is 
deactivated in line 110 by the statement ON ERROR GOTO 0. 

The current program also contains a few additional commen 
organized. ° 

Figure 11.11 shows a typical interactive session, using the same set of input data (student exam 
Example 9.30. Again. the user's responses аге underlined. Mis 

It is interesting to compare the current interactive session with that shown in Fig. 9.11. In the current 
session, notice that the user initially specified a nonexistent file name (in the second line). The error trap then 
generated the message “File does not exist" and again prompted the user for another file name. The remainder 
of the interactive session is similar to the earlier session, except for the greater separation between the course 
title and the term and the extended prompts. What is not apparent, however, is the effect of the error checks for 
the exam number and the individual scores. The user must actually run the current program to see the effects of 


these features. 


ts and screen displays that are somewhat better 


scores) as in 
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UPDATING STUDENT EXAMINATION SCORES 

File name: score 

File does not exist 

File name: scores 

Course title: Comp Sci 141 Term: Fall 1985 
Exam number (1-15): é 

Calculate averages (Y/N) ? Y 


Adams B F New score (0-100): 73. 
Average = 71.66666 


Brown P New score (0-100): во 
Average = 65 


Davis R ñ New score (O-100): 55 
Average = 40 


Fisher E K New score (0-100): 5 
Average = 4.166647 


Hamilton 8 P New score (0-100): 90 
Average = 91.66666 


Jones J J New score (O-100): 80 
Average = 87.5 ` 


Ludwig C W New score (0-100): 70 
Average = 53. 33333 "EX 


Osborne T New score (0-100): 80 
Average - 70 


Prince W F New score (0-100): 100 
Average - 82.5 


Richards E N New score (0-100): 70 
Average = 55 E 


Smith M C New score (0-100): 75 
Average = 67.5 d 


Thomas B А New score (0-100): 10 
Average = 21.66667 VES 


Wolfe H New score (0-100): 95 
Average = 64.16666 I 


Zorba D R New score (0-100): 95 
Average = 78. 355554 == 


Fig. 11.11 
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11.4 USER VERIFICATION 


Everyone makes an occasional mistake when entering input data. Usually, the consequences of 
erroneous input data are not serious. The user can simply run the program with the bad data, then 
reenter the input data correctly and run the program again. 

Sometimes, however, the consequences of data-input errors are more severe. This is especially 
true of programs involving lengthy data entry procedures, programs that require extensive execution 
time or programs that store data in data files. With such programs, the need to reenter the data and 
rerun the problem can be both time-consuming and annoying. 

Data input errors can often be detected and then corrected prior to program execution simply by 
requiring that the validity of the current data be verified. This is generally accomplished by 
prompting for some subset of the required input parameters (е.р., enough to fill the screen com- 
fortably) and then asking if these input values are correct. If the user indicates that the data are 
correct, the program prompts for any additional data that may be required or else it proceeds to 
process the data. If the user indicates that the data are not correct, however, then the user is asked to 
reenter the data and again verify its correctness. This procedure continues until all the required data 
have been entered and verified. 


EXAMPLE 11.7 Storing Laboratory Data 

A research chemist has written a Microsoft BASIC program for storing the data taken from numerous coal 
samples in a random data file. For each coal sample, the following information must be entered into the 
computer. 

1. Sample number (an integer ranging from 1 to 9999) 

2. Rank of the coal (There are only four permissible entries; anthracite, bituminous, lignite and peat. A 
single letter, 1.е., A, B, L or P, will therefore be sufficient to characterize the rank of the coal.) 
Percentage “ash” (i.e., noncombustible impurities) 

Percentage sulfur 

Percentage moisture 

Heating value (calories per gram) 

For each sample, the data entry procedure will begin with the heading 

COAL SAMPLE DATABASE SYSTEM 


appearing at the top of an otherwise empty screen. Individual prompts will then appear, one at a time, for each 
of the required data items. After all the data have been entered, the user will be asked to verify whether or not 
the data are correct. (Presumably, the user will examine the information that has just been entered and is still 
displayed on the screen.) AT 

If the data have been entered correctly, the user will respond by pressing either Y (uppercase or lowercase) 
or the carriage return. This will cause the input data to be stored in a random data file called SAMPLES, with 
the sample number interpreted as the record number. The program will then move on to the next coal sample. 


If the data have been entered incorrectly, however, the user will respond by pressing N (or any other 


character other than Y or a carriage return) when asked to verify. The screen will then clear, and the message 


QN UN > b 


Please reenter the data for this sample 


will appear. The series of prompts will then be repeated, thus allowing the user to reenter (and again verify) the 
data for the same sample. This entire procedure will continue until the user verifies that -the current data are 


correct. 8 

Тһе actual BASIC program is shown іп Fig. 11.12. Line 50 removes any previous display of function key 
definitions and clears the screen, and line 60 opens the random data file. (Notice that the OPEN statement is 
written in a somewhat different form than in the previous examples that made use of random data files.) The 
composition of each record is defined in line 70. The screen heading is then generated in line 80. 


Lines 100 through 120 prompt for the sample number. The prompt instructs the user to enter a value of 0 in 
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10 “жижжжж COAL SAMPLE DATABASE SYSTEM sex 
30 '3* READ INPUT DATA FOR EACH SAMPLE s 


50 KEY OFF: CLS 

60 OPEN "SAMPLES" AS #1 LEN=20 

70 FIELD #1, 1 AS R$, 4 AS A$, 4 AS S$, 4 AS M$, 7 AS C$ 
80 LOCATE 1,1: PRINT “COAL SAMPLE DATABASE SYSTEM" 


100 LOCATE 3,1: INPUT "Sample number (0 to end, otherwise 1-9999): ",АМ5% 
110 IF LEFT$(ANS$,1)="0" THEN END ELSE N=VAL (ANS$) 
120 IF N <= O OR.N > 9999 THEN BEEP: LOCATE 5,1: PRINT РАСЕ (78): GOTO 100 


140 LOCATE 5,1: INPUT “Rank: A)nthracite, B)ituminous, Liignite, Pleat: ",ANS$ 
150 IF ANS$-"A" OR ANS$="a" THEN RANK$-"A": GOTO 210 

160 IF ANS$="B" OR ANS$-"b" THEN RANK$="B": GOTO 210 

170 IF ANS$="L" OR ANS$="1" THEN RANK$="L": GOTO 210 

180 IF ANS$-"P" OR ANS$-"p" THEN RANK$-"P": GOTO 210 

190 BEEP: LOCATE 5,1: PRINT SPACE$(78): GOTO 140 


210 LOCATE 7,1: INPUT "Percent ash (0-100): "АМ 
220 IF LEFT#(ANS$,1)="0" THEN 4-0: GOTO 250 ELSE A=VAL (ANS$) 
250 IF А <= O OR А > 100 THEN ВЕЕР: LOCATE 7,1: PRINT SPACE$(78): GOTO 210 


250 LOCATE 8,1: INPUT "Percent sulfur (0-100): " ,ANS$ 
260 IF LEFT#(ANS$,1)="0" THEN 8-0: GOTO 290 ELSE S=VAL (АМ) 
270 IF S <= O OR 8 > 100 THEN BEEP: LOCATE 8,1: PRINT БРАСЕ$ (78): GOTO 250 


290 LOCATE 9,1: INPUT "Percent moisture (0-100): ",ANS$ 
300 IF LEFT#(ANS$,1)="0" THEN М=0: GOTO 330 ELSE M=VAL (ANS$) 
310 IF M <= O OR M > 100 THEN BEEP: LOCATE 9,1: PRINT SPACE$(78): GOTO 290 


350 LOCATE 10,1: INPUT “Heating value (cal/gm): ",ANS$ 
540 IF LEFT#(ANS#,1)="0" THEN С=О: GOTO 370 ELSE C=VAL (ANS#) 
350 IF C <= O THEN BEEP: LOCATE 10,1: PRINT ЗРАСЕ$ (78): GOTO 330 


370 LOCATE 12,1: INPUT "Is everything ok? (Y/N) ",ANS$ 
380 IF ANS$-"Y" OR ANS$-"y" OR ANS$-"" THEN 440 

390 CLS: PRINT "Please reenter the data for this sample" 
400 БОТО 100 


420 's- STORE THE DATA see 


440 LSET R$=RANKS 

450 LSET A$-MKS£(4): LSET S$=MKS$ (S): LSET M$=MKS$ (M): LSET C$-MKS$(C) 
460 PUT #1, N 

470 CLS: GOTO 80 

480 END 


Fig. 11.12 


order to end the program and a value between 1 and 9999 otherwise. Lines 110 and 120 comprise an error trap 
for any input values that do not fall within this range. 

Lines 140 through 190 prompt for the rank of the coal. Since there are only four permissible replies (A, B, L 
or P), this prompt is displayed in the form of a brief menu. Notice that the user may respond with either 
uppercase or lowercase letters. 7 

Lines 210 through 230 prompt for the percentage of ash. This group of statements includes an error trap for 
numerical values that fall outside of the indicated range of 0 to 100 percent. Similar prompts are then generated 
for the percentage of sulfur (lines 250 through 270), the percentage of moisture (lines 290 through 310) and the 
heating value of the coal, in calories per gram (lines 330 through 350). 

Finally, the user verification is generated in line 370. If the user indicates that the data are correct, the input 
values are stored in the random data file (lines 440 through 460). The screen is then cleared and control is 
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transferred to line 80, thus initiating the data input procedure for the next sample. If the user indicates that the 
data are not correct, however, then the “Please reenter” message appears (line 390) and control is transferred to 
line 100. Notice that the input data are not stored unless they are verified as being correct. 


COAL SAMPLE DATABASE SYSTEM 
Sample number (0 ta end, otherwise 1-9999): 1550 


Rank: A)nthracite, B)ituminous, L)ignite, P)eat: B 


Percent ash (0-100): 14.8 
Percent sulfur (0-100): 7.0 


Percent moisture (0-100): 4.2 


Heating value (cal/gm): 6818 


Is everything ok? (Y/N) N 
(a) 


Please reenter the data for this sample 
Sample number (O to end, otherwise 1-9999): 1330 
Rank: A)nthracite, B)ituminous, L)ignite, P)eat: B 


Percent ash (0-100): 14.8 
Percent sulfur (0-100): 7 


Fic) 
Percent moisture (0-100): 4.2 
Heating value (cal/gm): 6188 


Is everything ok? (Y/N) КҮ; 
(b) 
Fig. 11.13 


Figure 11.13(a) illustrates the data-input procedure for a typical coal sample. The user's responses are 
underlined, as usual. Note that the user has indicated that these values are not correct. Thus, the program will 
ignore the current data and repeat the data-input procedure for this sample. . 

Figure 11.13(b) shows the entry of the corrected data. Note that the heating value is different than in Fig. 
11.13(a). This time the user indicates that the data are correct, causing the data items to be stored in the random 
data file. 


Review Questions 
11.1 Summarize the four user-friendly features that are described in this chapter. What is the purpose of 
each? 
2112 What kind of information is transmitted to the user by a prompt for input data? 


11.3 Describe the use of error checking in conjunction with data-input prompts. In what way do these two 
features complement one another? 


11.4 How do menus differ from ordinary prompts? For what kinds of situations are menus well suited? 


11.5 Under what conditions might it be desirable to include а main menu and one or more submenus in the 
same program? 
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11.6 


11.7 


11.8 


11.9 
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Describe the use of the ON ERROR GOTO statement and the RESUME statement to carry out error 
checks. How do these error checks differ from those used in conjunction with data-input prompts? 


Are the ON ERROR GOTO and RESUME statements available on your particular microcomputer? If 
not, are similar statements available? 


Determine the method used for encoding errors with your particular microcomputer. Are the ERR and 
ERL functions available? 


Describe the manner in which user verification is carried out. For what kinds of programs is user 
verification helpful? 


Supplementary Problems 


The following “problems” are concerned with information gathering rather than actual problem 


solving. Answer the questions as they apply to your particular version of microcomputer BASIC. 


11.10 Section 11.1 describes a type of error checking in which a numerical input quantity is tested to determine 


whether it falls within an acceptable range of values. This type of error checking makes use of the 
following Microsoft BASIC statements and functions: 


LOCATE PRINT 
INPUT (including a prompt) SPACE$ 
IF-THEN GOTO 
BEEP 


Determine whether all these statements are available in your version of microcomputer BASIC and 
whether they are interpreted in the same manner as in Section 11.1. If not, how can this type of error 
checking be carried out using your version of microcomputer BASIC? 


14.11 Section 11.2 shows how to generate a menu using the following Microsoft BASIC statements and 


functions: 
CLS IF-THEN 
LOCATE BEEP 
PRINT SPACE$ 
INPUT GOTO 
ANS$ ON-GOTO 
VAL 


Determine whether all these statements are available in your version of microcomputer BASIC and 
whether they are interpreted in the same manner as in Section 112. If not, how can such menus be 
generated using your version of microcomputer BASIC? 


1112 Section 11.3 describes another type of error checking which includes tests for syntax errors, run-time 


errors, disk I/O errors and hardware errors. This type of error checking makes use of the following 
Microsoft BASIC statements and functions: 


ON ERROR GOTO IF-THEN 
RESUME PRINT 
ERR ERL 


Determine whether all these statements are available in your version of microcomputer BASIC and 
whether they are interpreted in the same manner as in Section 11.3. I* not, how can this type of error 
checking be carried out using your version of microcomputer BASIC? 

How does this type of error check differ from the error check presented in Section 11.1? 


CHAP. 11] USER-FRIENDLY PROGRAMMING 309 


11.13 


11.14 


11.15 


11.16 


11.17 


11.18 


11.19 


Programming Problems 


Modify the program given іп Example 9.11 (generation of Fibonacci numbers and search for primes) so 
that the prompt includes a display of the permissible range; i.e., 


How many Fibonacci numbers? (1-23) 
Add an error check that will test for the following error conditions: 


(a) Numerical values out of Tange 
(b) Nonnumerical characters 


Modify the program given in Example 9.27 (search for a maximum) so that the prompts include displays 
of the permissible range of each input value. Add appropriate error checks that test for numerical values 
out of range and for nonnumerical characters. 


Modify the piglatin generator shown in Example 9.28 so that it can either translate English into piglatin 
or piglatin into English. Include a simple menu that will allow the user to choose either feature. 


Rewrite the program given in Example 4.9 (calculating depreciation) so that it can be used with a TV 
monitor. Begin each calculation with a menu indicating which types of calculations are available. 
Generate the input dialog and the calculated output beneath the menu. Clear the screen between 
calculations. Be sure to include error checking for all the input data, including the menu choices. 


Rewrite the program given in Example 10.12 (multilingual **hello") so that a particular language can be 
selected via a conventional menu rather than a light pen. Include error checks for the menu choices 
entered by the user. 


Solve Problem 5.56 (matching countries with their capitals), using a menu to determine whether a capital 
will be found for a specified country or a country will be found for a specified capital. Use the function 
keys to make your menu selection. Be sure to include prompts and error checks with the menu 


selections. 


Write a complete microcomputer BASIC program that will create and utilize a random data file 
containing names, addresses and telephone numbers, as described in Problem 9.65 (see also Problems 


8.40 and 9.64). Include a provision for each of the following features. 

(a) Add a new record (i.e., a new name, address and telephone number) to the file. 
(b) Find and display a particular record. 

(c) Delete a particular record. 

(d) List the entire file. 

(e) End the computation. 


Use a binary search to find individual records (see Example 8.13). 

Have the program generate a menu which will allow the user to select any one of the above features. 
Be sure to clear the screen and return to this menu after each of the requested features has been carried 
out. Include appropriate prompts and error checks with each menu selection. 


Chapter 12 


Microcomputer Graphics 


Most microcomputers allow information to be displayed graphically as well as textually. Such 
displays permit the generation of many different kinds of graphs and drawings. Some microcomputers 
support multicolored graphical displays, and some allow certain types of graphical objects to be 
animated. The ability to generate colored, animated displays, enhanced with sound effects, provides 
the foundation for the wide variety of computer games that have become so popular in recent years. 

Virtually all versions of microcomputer BASIC now include special graphics instructions that 
allow graphics displays to be created easily. For example, individual instructions are available for 
generating a number of common shapes, such as dots, lines, rectangles, circles and ellipses. These 
shapes can be used to create a variety of sophisticated graphics displays which may include the use of 
color and sound. Special instructions are also available to generate animated displays. Moreover, the 
animation can be controlled by auxiliary input devices, such as joysticks and mice. This chapter 
illustrates the use of these special BASIC instructions for a number of representative graphics 
applications. 

As in previous chapters, our emphasis will be on the advanced version of Microsoft BASIC (i.e., 
BASICA) that is implemented on the IBM Personal Computer. Many other microcomputers utilize 
Microsoft BASIC, however, and therefore support features that are identical to or similar to those 
described in this chapter. 


121 GRAPHICS FUNDAMENTALS 


We have already seen that text displays are made up of words, which are made up of individual 
characters (1.е., letters, symbols, etc.). Therefore we can think of characters as the fundamental 
elements of text displays. A similar situation exists with graphics displays, where the fundamental 
elements are small dots called pixels (picture elements). These pixels can be combined to form more 
complex shapes, just as characters are combined to form words, sentences and paragraphs. 

The level of detail (i.e., the resolution) of a graphics display is measured іп terms of the largest 
number of horizontal and vertical pixels that can be displayed at any one time. These values will be 
determined by the computer’s hardware. Personal computers typically support graphics displays of 
640 (horizontal) by 200 (vertical) pixels, or perhaps 720 by 350 pixels. These values will vary from one 
computer to another. Higher resolutions (e.g., 1024 by 1024, or 4096 by 4096) can be obtained with 
more expensive equipment. 

The maximum available number of colors is also determined by the computer’s hardware. 
Personal computers usually do not support more than 16 colors, and some support less. A larger 
number of colors can be obtained with more expensive equipment. If multiple levels of resolution are 
available, then the higher the resolution, the fewer the colors. 

For example, the IBM Personal Computer in its most basic form can support two graphics 
modes. These are referred to as medium resolution (320 by 200, with four colors) and high resolution 
(640 by 200, in black and white), respectively. The choice of a mode is accomplished with the 
SCREEN statement. Thus, SCREEN 1 invokes the medium-resolution graphics mode, and SCREEN 
2 invokes the high-resolution mode. (Recall also that SCREEN 0 invokes the text mode, as described 
in Section 10.6.) 

If medium-resolution graphics is selected by the SCREEN statement, then the choice of colors 
can be specified by the COLOR statement. This statement is interpreted differently than in the text 
mode, as described in Section 10.6. In particular, the COLOR statement can include two parameters, 
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the first of which specifies the background color (recall that the first parameter specifies foreground 
color when in the text mode). This can be any integer value between 0 and 15, thus providing a 


choice of 16 different background colors. The individual colors and their corresponding numerical 
parameters are 


0 black 8 gray 

1 blue 9 light blue 

2 green 10 light green 

3 cyan 11 light cyan 

4 red 12 light red 

5 magenta 13 light magenta 

6 brown 14 yellow 

7 white 15 high intensity white 


The second parameter in the COLOR statement specifies the "palette." This is a group of three 
colors which, together with the background color, provides a total of four colors that can be utilized 
in a graphics display at any one time. Only two different palettes are available. They are designated by 
the numerical values 0 and 1, respectively. Thus COLOR 0,0 will select a black background (first 
parameter) and palette 0 (second parameter), whereas COLOR 0,1 will select a black background 
and palette 1. 

The individual colors within each palette are as follows. 


Palette 0 Palette 1 

0 background color 0 background color 
1 green 1 cyan 

2 red 2 magenta 

3 brown 3 white 


The choice of a particular color from within the palette is accomplished with one of the graphics 
shape statements, e.g., PSET for a point (pixel), LINE for a line or a rectangle and CIRCLE for a 
circle or an ellipse. We will say more about color selection later in this chapter. 


EXAMPLE 12.1 


Suppose we wish to generate a medium-resolution graphics display on an IBM Personal Computer, with the 
colors green, red and brown displayed against a white background. Then our BASIC program must contain the 
following instructions. 


10 SCREEN 1 : COLOR 7,0 


The first instruction (SCREEN 1) specifies medium-resolution graphics (i.e., 320 horizontal pixels, 200 vertical 
pixels). The second instruction (COLOR 7,0) first specifies white as a background color and then selects palette 
0 for the foreground colors. From the above table, we see that this palette comprised the colors red, green and 


brown. 


EXAMPLE 12.2 


Now consider a BASIC program that will generate a high-resolution graphics display on the IBM Personal 
Computer. If the program begins by clearing the screen, the following instructions will be required. 


10 KEY OFF : CLS 
20 SCREEN 2 


In this situation the COLOR statement is not required, since high-resolution graphics displays (i.e., 640 
horizontal pixels, 200 vertical pixels) can only be generated in black and white (i.e., white shapes against a black 
background). 
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12.2 POINTS AND LINES 


The version of Microsoft BASIC that is used with the IBM Personal Computer includes two 
statements, PSET and PRESET, that generate single points at any specified location on the screen 
and in any color. The first of these, PSET, is intended to be used with a color selected from the 
current palette when in the medium-resolution graphics mode. 

To use this statement, the word PSET must be followed by a pair of parameters, enclosed in 
parentheses and separated by a comma, e.g., PSET (160,100). These parameters indicate the x and y 
coordinates of the point. In the medium-resolution mode, the first parameter may range from 0 to 
319 and the second parameter from 0 to 199. Point (0,0) represents the upper left corner of the 
screen, and the point (319,199) represents the lower right corner. 

Following the pair of coordinates is an optional third parameter which indicates the color of the 
point, e.g., PSET (160,100),2. This parameter may range from 0 to 3. In the medium-resolution 
graphics mode, the value of this parameter will be interpreted as one of the colors from the currently 
active palette (see Section 12.1). If this last parameter is not explicitly included in the PSET 
statement, then color number 3 will automatically be selected. 


EXAMPLE 12.3 
A Microsoft BASIC program, written for the IBM Personal Computer, contains the following statements. 


10 SCREEN 1 : COLOR 0,1 
20 PSET (160,100),2 


Line 10 specifies medium-resolution graphics, with a black background and color palette number 1 (colors cyan, 
magenta and white). Line 20 causes a magenta point to be generated at the center of the screen. 


EXAMPLE 12.4 


Figure 12.1 contains a Microsoft BASIC program, written for the IBM Personal Computer, that generates 
100 different points at random locations on the screen. Medium-resolution graphics is used. Each point is 
displayed in a color selected at random from palette number 1 (except that the background color will not be 
selected since such a point would be invisible). 


10 KEY OFF : CLS 

20 SCREEN 1 : COLOR 0,1 
30 FOR I=1 ТО 100 

40 X=INT (320#RND) 

50 Y=INT (200#RND) 
60 CLR=1+INT (S#RND) 
70 PSET (X,Y) ,CLR 

80 NEXT I 

90 END 


Fig. 12.1 


Line 10 removes any previous display of function key definitions and then clears the screen. Line 20 
specifies medium-resolution graphics, with a black background and color palette number 1. 

The individual points are generated by the FOR-TO loop that comprises lines 30 through 80. Lines 40 and 
50 generate a random pair of coordinates. Line 40 generates a random integer whose value lies between 0 and 
319, and line 50 generates a random integer between 0 and 199. The color is selected randomly in line 60, where 
a random integer is generated whose value lies between 1 and 3. Finally, each point is actually generated in line 
70, using the current randomly generated values. 

The reader is encouraged to run this program and observe what happens. (The displays that are generated 
by graphics programs must be seen to be appreciated.) 


Now consider the use of the PSET statement in the high-resolution graphics mode. The x and y 
coordinates may now range from 0 to 639 and 0 to 199, respectively. Thus point (0,0) represents the 
upper left corner of the screen, and point (639,199) represents the lower right corner. 
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The color parameter will be interpreted differently than in the medium-resolution mode, An 
even value (i.e., 0 or 2) will indicate black, and an odd value (i.e., 1 or 3) will indicate white. If the 
color parameter is not included, then color number 1 (white) will be selected. 


EXAMPLE 12.5 
A Microsoft BASIC program, written for the IBM Personal Computer, contains the following statements. 


10 SCREEN 2 
20 PSET (320,100) 


Line 10 specifies high-resolution graphics (with white color against a black background). Line 20 causes a white 
point to be generated at the center of the screen. 

It is interesting to compare this group of statements with the comparable group of statements in Example 
12.3. Notice that the present example does not include the COLOR statement. Also, note that a color parameter 
is not included in the PSET statement. 


EXAMPLE 12.6 


Figure 12.2 shows a variation of the program presented in Example 12.4. Now, however, the 100 random 
points are generated in high-resolution graphics. The logic is essentially the same as that presented earlier, with 
small variations in some of the statements in order to accommodate the high-resolution graphics mode. (Notice 
the omission of the COLOR statement from the present program.) 


10 KEY OFF : CLS 

20 SCREEN 2 

30 FOR I=1 TO 100 
40 X=INT (640*RND) 
50 Y=INT (200*RND) 
70 PSET (X,Y) 

80 NEXT I 

90 END 


Fig. 12.2 


The reader is encouraged to run this program and compare the graphical display with that generated in 
Example 12.4. И 

Let us now turn our attention to PRESET, which is the second of the Microsoft BASIC 
Statements that will generate a single point. This statement is identical to PSET except in the 
interpretation of the default color (i.e., the color that is automatically selected if the color parameter 
is not explicitly shown). Whereas the PSET statement will automatically select color number 3 by 
default, the PRESET statement will automatically select the background color. Thus, in some 
applications it may be convenient to use PSET to generate points, and PRESET to “erase” the 


Points (by regenerating the points in the background color). 


EXAMPLE 12.7 
Consider the following statements which are included in a Microsoft BASIC program written for the IBM 
Personal Computer. 


10 SCREEN 1 : COLOR 2,0 


100 PSET (160,100),2 
110 FOR I=1 TO 2000 : NEXT I 
120 PRESET (160,100) 


Line 10 specifies medium-resolution graphics, with a green background and color palette number 0 (colors green, 
Ted and brown). Line 100 causes a red point to be generated at the center of the screen. А brief time delay is 
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then generated by the empty FOR-TO loop in line 110. Following this time delay, the red point is erased (i.e., it 
is regenerated in the background color) in line 120. 


EXAMPLE 12.8 Dots in Space 


In Fig. 12.3 we see a more comprehensive Microsoft BASIC program for the IBM Personal Computer 
which draws upon some of the ideas presented in earlier examples. This program generates 200 different points 
at random locations on the screen, using medium-resolution graphics. The color of each point is selected at 
random from palette number 1. The points remain visible, however, for only a limited period of time. 
Eventually, each point disappears (is erased") and is replaced by a new point, at some other location on the 
screen. The net effect is a screen which is always filled with colored, randomly spaced points, but which is 
constantly changing as old points vanish and new ones appear. 


10 REM ### DOTS ж" 
20244 

50 SCREEN 1 : COLOR 0,1 
40 DIM X (200) ,Y(200) 

50 RANDOMIZE 

60 KEY OFF : CLS 

70 1=1 


90 ‘##* begin main loop *** 


110 PRESET(X(1),Y(I)) 

120 X(I)=INT(S2O*RND) : Y(1I)=INT(200#RND) 
150 CLR=1+INT(3#RND) 

140 PSET(X(1),Y(I)),CLR 

150 I=I+1 

160 IF I > 200 THEN I=1 

170 GOTO 110 

180 END 


Fig. 12.3 


Now let us consider on a line-by-line basis how this program works. Line 30 specifies medium-resolution 
graphics, with a black background and color palette number 1 (cyan, magenta and white). The DIM statement in 
line 40 provides for the storage of 200 pairs of coordinates (the coordinates of all points being displayed at any 
one time). Line 50 initializes the random number generator, and line 60 removes any previous display of 
function key definitions and clears the screen. The loop is then initialized in line 70. 

The main loop consists of lines 110 through 170. Line 110 causes the current point (i.e., the Ith point) to be 
erased. We then obtain a new set of coordinates for the Ith point in line 120 and a new color in line 130. Line 
140 causes this “new” Ith point to be generated. 

Note that the new coordinates will be stored in the X and Y arrays. This allows the current point to be 
recalled and erased at some later time. The erasure will not occur, however, until an additional 199 points have 
been generated. 

Finally, the counter is incremented in line 150 and its value reset to 1, if necessary, in line 160. This 
procedure allows the loop to continue indefinitely. 

We again urge the reader to actually run this program and observe what happens, in order to gain a 
heightened appreciation for the dynamic effect that is created. 


The version of Microsoft BASIC that is available for the IBM Personal Computer includes the 
LINE statement, which allows a straight line to be drawn between two points on the screen. The 
points can both be specified explicitly, or one of them can be the last point referenced by a previous 
graphics statement. 

In its first form, the word LINE must be followed by two pairs of parameters, where each pair 
represents the x and y coordinates of one of the points. The coordinates are enclosed in parentheses 
and separated by a comma. The two points must be separated by a dash (minus sign), e.g., LINE 
(20,50) - (300,150). The permissible values of the coordinates are dependent upon the particular 
graphics mode (medium- or high-resolution), as described earlier in this section. 
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The coordinates can be followed by an optional parameter which indicates the color of the line, 
e.g., LINE (20,50) - (300,150),1. The value assigned to this parameter may range from 0 to 3. It is 
interpreted in the same way as the value of the color parameter in the PSET statement. 


EXAMPLE 12.9 
A Microsoft BASIC program, written for the IBM Personal Computer, contains the following statements. 


10 SCREEN 1 : COLOR 4,1 
20 LINE (20,50) — (300,150),3 


Line 10 specifies medium-resolution graphics, with a red background and color palette number 1 (colors cyan, 
magenta and white). Line 20 generates a white diagonal line running from upper left, i.e., point (20,50), to lower 
right, i.e., point (300,150). . 

Note that the last parameter could have been omitted from the LINE statement, i.e., 


20 LINE (20,50) — (300,150) 


since color number 3 is automatically selected if a value is not shown explicitly. 


The second form of the LINE statement allows the initial pair of coordinates to be omitted; e.g., 
LINE - (300,150). This statement causes a line to be drawn from the point that was last referenced (in 
a previous statement) to the point currently specified. This form of the LINE statement is useful 
when drawing a sequence of interconnected lines. 


EXAMPLE 12.10 А Lightning Bolt 


Figure 12.4 presents a short Microsoft BASIC program, written for the IBM Personal Computer, that 
causes a red “lightning bolt" to be displayed on the screen. 


10 ‘иннижининиии LIGHTNING BOLT жене 
20 

30 KEY OFF : CLS 

40 SCREEN 1 : COLOR 0,0 

50 LINE (20,20)-(120,80),2 : LINE -(80,80),2 
60 LINE -(220,180),2 : LINE -(140,100),2 

70 LINE -(190,100),2 : LINE -(110,20),2 

ВО LINE -(20,20),2 
90 END 


Fig. 12.4 


Line 30 clears the screen and line 40 selects medium-resolution graphics with a black background and palette 
number 0 (green, red and brown). Lines 50 through 80 contain seven LINE statements, thus generating the 
seven interconnected lines that form the lightning bolt. Notice that both forms of the LINE statement are used. 
The first form must be used to generate the first line. Once an end point is established, however, the second 


form of the LINE statement is used to generate the remaining lines. А 1 
When the program is executed, the object shown in Fig. 12.5 is generated on the screen, with red lines 


against a black background. 


Some microcomputers support other forms of the LINE statement which allow such features as 
the specification of a line relative to a previous point rather than from one absolute point to another, 
or the generation of a dashed line. We will not discuss these features, since they are used less often 
than the features described above. Interested readers are referred to the BASIC programming 
manuals that accompany their particular computers for additional information on these features. 

A single LINE statement can also be used to generate a complete rectangle rather than a single 


line. We shall see how this is accomplished in Section 12.3. 
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Fig. 12.5 


EXAMPLE 12.11 Moving Lines (Kinetic Art) 


Let us now turn our attention to a Microsoft BASIC program based upon the same general idea as the 
program shown in Example 12.8, but which generates displays that are much more dramatic. 

We wish to generate a sequence of colored lines, in medium-resolution graphics, located randomly about 
the screen. However, the successive lines will not be generated independently of one another. Rather, their 
respective end points will differ by small displacements. Groups of consecutive lines will be displayed in a single 
color, selected randomly from color palette number 1. Both the magnitudes of the displacements and the color 
will periodically change as the program continues to execute. 

The program will always display the same number of lines on the screen, but each line will eventually be 
erased and a new line generated. Thus the lines will appear to move around the screen in a random but related 
pattern, and in different colors. Moreover, interesting moiré patterms will sometimes be created as new lines 
intersect existing lines. The net effect is one of surprisingly spectacular beauty. 

Figure 12.6 contains the actual.program. Line 30 invokes medium-resolution graphics and then selects a 
black background and color palette number 1 (colors cyan, magenta and white). Line 40 defines all the program 
variables to be integer-type variables, and line 50 provides for the storage of 150 lines (і.е., 150 pairs of end 
points). The random number generator is initialized in line 60, and the screen is cleared in line 70. Line 80 
provides an initial pair of end points (i.e., (X1,Y1) and (X2,Y2), respectively) for the first line. 

Line 90 provides initial values for the counters COLORCOUNT, POINTCOUNT and I. The last of these, 
I, is simply a loop counter which is incremented during each pass through the loop. This counter ranges from 1 
to 150 and is reset to 1 when its value exceeds 150. The other two counters Tequire some additional explanation. 

COLORCOUNT, for example, is a counter that determines when (which pass through the loop) a different 
color will be selected from the palette. COLORCOUNT is initially set to zero, in line 90, so that a new, nonzero 
value will be generated randomly during the first pass through the loop (in line 190). This is accompanied by a 
new, randomly generated value for the color (also in line 190). During each pass through the loop, COLOR- 
COUNT will be decreased by 1. When COLORCOUNT has again become equal to zero, a new value will be 
generated and a new color selected, and so on. 

Similarly, POINTCOUNT is a counter that determines when different values are selected for altering the 
displacement of successive lines. POINTCOUNT is initially set to zero, in line 90, so that a new, nonzero value 
will be generated during the first pass through the loop (in line 200). In addition, a new set of values for DX1, 
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10 КЕМ 3seenieexiee LINES жж 


30 SCREEN 1: COLOR 0,1 

40 DEFINT A-Z 

50 DIM X1(150) ‚У! (150) ,X2(150) , Y2(150) 

60 RANDOMIZE 

70 KEY OFF: CLS 

80 Х1=120: Y1=70: Х2=200: Ү2=150 

90 COLORCOUNT-O: РОІМТСОММТ-О: Ісі 

100 ' 

110 ‘erwe BEGIN MAIN LOOP ЖЕН 

120 ° 

130 '##+ erase old line *** 

140 * 

150 LINE (X1(I),Y1(I))-(X2(I) ,Y2(1)),0 

160 ° 

170 '*** generate new values for counters if required s** 

180 ‘ 

190 IF COLORCOUNT-O THEN COLORCOUNT-S*(1-INT(1O*RND)): CLR=1+INT(3*RND) 
200 IF POINTCOUNT-O THEN POINTCOUNT-S*(1*INT(1OX*RND)): DX1=INT (9#RND) ~4: 


DY1-INT(9*RND)-4: DX2-INT(9*RND)-4: DY2-INT (9*RND) -4 
210 ° 
220 '*** generate end points for new line *** 

230 ° 

240 X1=X1+DX1: IF X1 < O OR X1 > 319 THEN X1-X1-2*DX1 
250 Y1=Y1+DY1: IF Y1 < О OR У! > 199 THEN Yi-Y1—-2*DY1 
260 Х2=Х2+0Х2: IF X2 < O OR X2 > 319 THEN X2=X2-2*DX2 
270 Ү2-Ү2%рү2: IF Y2 < О OR Y2 > 199 THEN Y2-Y2-2*DY2 
280 ' 

290 “жжж display new line, then save end points *** 
зоо ' 

310 LINE (X1,Y1)-(X2,Y2) ,CLR 

320 Х1(1)=Х1: Y1(I)=Y1: Х2(1)=Х2: Y2(I)=Y2 


530 

340 “жжж adjust counters and repeat *** 
350 ° 

360 1=1+1 


370 IF I > 150 THEN 1=1 
380 COLORCOUNT=COLORCOUNT-1: POINTCOUNT-POINTCOUNT-1 


390 GOTO 150 
400 END 


Fig. 12.6 


DY1, DX2 and DY2 will be determined in line 200; these four parameters determine the displacement of the 
successive pairs of end points, which in turn define the locations of successive lines. During each pass through 
the loop, POINTCOUNT will be decreased by 1. When POINTCOUNT again becomes equal to zero, a new 
value will be generated and a new set of displacements will be determined. Т 

Тһе repeated part of the program ranges from lines 150 to 390. Line 150 causes the line defined by the Ith 
set of end points, which is currently stored in the array elements X1(I), Ү1(1), X20) and Ү2(1), to be erased. 
(During the first 150 passes through the loop, however, there will be no such end points.) Line 190 tests to see if 
COLORCOUNT is equal to zero. If so, a new value, ranging from 5 to 50, is selected randomly and a new value 
for the color, ranging from 1 to 3, is randomly generated. The color will remain unchanged until COLOR- 
COUNT again becomes equal to zero. ( 

Line 200 contains а similar test for POINTCOUNT. If POINTCOUNT equals zero, a new value, ranging 
from 5 to 50, is generated randomly and a new set of values is selected for the displacement parameters. Each of 
these parameters will be assigned a separate value, ranging from -4 to +4. The displacement parameters will 
remain unchanged until POINTCOUNT again becomes equal to zero. 

Lines 240 through 270 calculate a new pair of end points for the current line in relation to the end points for 
the previous line. Each of the new coordinates is checked to determine if its new value is too large or too small 
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(thus causing the end point to be located beyond the bounds of the screen). If so, the value of the coordinate is 
adjusted accordingly. 

Line 310 causes the new line to be displayed, and line 320 caused the end points of this line to be stored in 
the arrays. This allows the current line to be recalled and erased at some later time. The erasure will not occur, 
however, until an additional 149 lines have been generated. 

Lines 360 through 390 complete the loop by adjusting the values of the parameters and then returning to 
line 150 to begin another pass. Notice that the loop will continue to execute indefinitely since there is no 
specified stopping condition. 

When the program is executed, patterns similar to that shown in Fig. 12.7 are generated in a display that 
continuously moves about the screen. The reader should actually observe the program in execution on a color 
monitor in order to appreciate fully the striking effects that are created. 


Fig. 12.7 


The examples presented in this chapter so far have been oriented toward the use of graphics to 
produce effects that are entertaining or artistic. However, graphics can also be used very effectively 


to generate displays that are useful in business and technical applications. This is illustrated in the 
next example. 


EXAMPLE 12.12 Linear Regression with Graphical Display 


Let us now consider the problem of fitting a straight line to a given set of data points using the method of 
least squares, as described in Example 7.22. (This problem is often referred to as linear regression.*) We will 


i Actually, the lerm linear regression applies to curve fits involving several different types of curves, including exponential 
functions, logarithmic functions and polynomials (see Example 7.22). 
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present 2 Microsoft BASIC program, written for the IBM Personal Computer, that first carries out the necessary 
mathematical calculations and then generates a graphical display of the individual data points and the 
regression line. The graphical display will be scaled so that all the data points are shown and the entire-screen is 


filled, regardless of the magnitudes of the given data. We will use th i i i 
ниве S, е medium-resolution graphics mode to 


Essentially, the oroblem is that of fitting the linear equation 
y=ax+b 
to a set of data points (уі, xi), (Y2, х2), ... , (ум, хм) by minimizing the sum of the square errors, as discussed in 


Example 7.22. The unknown quantities are the values of the coefficients a and b. These values are obtained 
using the following formulas. 


a = (Ма – cidiy(Mc> - ci) 
b = (di- ax) M 


where 

M 

аз Ў м 
i=l 
M 

62:75 > x: 
т 
м 

а= у 
ТЕГ! 


м 
а- > ху 
із! 


Hence, the overall procedure will be а follows. 
1. Read in the data points (yi, Х1), (y2,x2),..., (Ум, хм) and generate the cumulative sums сі, c2, di and 
dz, as defined above. 
Solve for the unknown coefficients a and b, using the formulas presented above. 
Determine the largest and smallest values of x and y, in preparation for step 4 below. 
Scale the data points so that they will fill the entire graphics display area. 
Generate the actual graphical display, in three phases: 
(a) Plot the axes. 
(b) Plot the individual (scaled) data points. 
(c) Plot the corresponding (scaled) regression line. 
6. Print the calculated regression equation at the top of the screen above the graphical display. 


жымы 


Тһе actual BASIC program is shown in Fig. 12.8. Lines 30 through 110 clear the screen, generate a program 
heading, define the required arrays and initialize key variables. The data input routine is provided by lines 150 
through 200. Notice that the program allows an unspecified number of data points to be entered. The data entry 
procedure continues until the user presses the RETURN key when prompted for Y(D), thus entering an empty 
(null) string. 

The slope (a) and the y-intercep' 
individual data points are then scannet 
through 350. The actual scaling of the data points is carried out in 


generate scaled end points for the calculated regression line. 
The actual graphical display is generated in lines 490 through 590. Line 490 invokes medium-resolution 


graphics, with a black background and color palette number 1 (colors cyan, magenta and white). This is followed 
by the graphics output commands, which are grouped into three different sections: lines 500 through 520, which 
generate the axes; lines 540 through 570, which cause the individual data points to be plotted; and line 590, 
which generates the plot of the calculated regression line. (Notice that each data point is enclosed in a small 
triangle so that it is clearly visible on the screen. Hence, the PSET and LINE statements are both used.) 


t (b) of the desired regression line are determined in lines 240 and 250. The 
d to determine the largest and smallest values of Y(I) and X(I), in lines 290 
lines 390 through 420. Lines 430 through 450 


а»: 
IT Sa^ 
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“eevee eee LINEAR REGRESSION WITH GRAPHICAL DISPLAY ¥ EEE 


KEY OFF: CLS 

WIDTH 80: SCREEN О: COLOR 7,0 

DIM X(100),Y(100) 

LOCATE 1,20: PRINT STRING$(40, "«") 4 
LOCATE 2,20: PRINT "* LINEAR REGRESSION ROUTINE * 
LOCATE 3,20: PRINT "ж";ТАВ(59); "ж" 

LOCATE 4,20: PRINT "* Press RETURN after last data point ж" 


100 LOCATE 5,20: PRINT STRING$(40,"*"): PRINT 
110 1=0: Ci-0: С2=0: 01=0: р2=0 


120 

150 ‘нинижинииииииии» ENTER DATA AND GENERATE COEFFICIENTS HEAR HE 
140 * 

150 1=1+1 

160 PRINT "Y(";I;") = "s: INPUT "" ANS$ 


170 IF ANS$-"" THEN M=I-1: GOTO 240 ELSE Y(I)=VAL(ANS$) 
180 LOCATE CSRLIN-1,20: PRINT "X(O3 Ij") "gs INPUT "",X(1) 
190 С1=С1+Х(Т): С2=С2+Х(1) ^2: D1=D1+Y(I): D2=D2+X(I)*Y(I) 
200 GOTO 150 


220 "xime SOLVE FOR UNKNOWN CONSTANTS 3344909999000 8 209 
230 ° 

240 A-(M*D2-Ci*D1)/(M*C2-C1^2): IF ABS(A) < 1Е-08 THEN A=0 

250 B=(D1-A*C1)/M: IF ABS(B) < 1E-OB THEN В=0 


260 

270 “инни” FIND LARGEST AND SMALLEST X AND Y жн“ “кк 
280 * 

290 ХМАХ--100000!: YMAX=-100000!: XMIN=100000!: YMIN=100000! 

ЗОО FOR Ізі TO М 

310 IF Х(1) > XMAX THEN XMAX = X(I) 

320 ТЕ Y(I) > YMAX THEN УМАХ = Y(I) 

330 IF X(I) < XMIN THEN XMIN = X(I) 

340 IF Y(I) < YMIN THEN YMIN = Y(I) 

350 NEXT I 

360‘ 

$70 ° EE E E E E E E E E E ЗЕ ЭЕ ЗЕ ЗЕ ЭЕ ЗЕ E E SCALE THE X'S AND Y'S € E HF E E E EEE E E E EF ии нии ини 
380 : 

590 FOR Ісі TO M 

400 Х(1) 229*INT (280+ (X (I) -XMIN) / (XMAX-XMIN)) 

410 Y (1) 2189-INT (150% (Y (I) -YMIN) / (YMAX-YMIN) ) 

420 NEXT I 

430 X1=29: X2-309 

440 Ү1-189-ІМТ(150%( (АжХМІМ%В)-ҮМІМ) / (YMAX-YMIN) ) 

450 Y27189-INT (150% ( (АжХМАХ+В) -YMIN) / (YMAX-YMIN) ) 

460 ° 

470 "Xxx 9900009999999 PLOT THE GRAPHICAL DISPLAY жеж 
480 ' 

490 SCREEN 1,1: COLOR 0,1 

500 LINE (19,29)-(19,199): LINE -(519,199) 

510 FOR IY=59 ТО 179 STEP 20: LINE (19,1Ү)-(25,1Ү): МЕХТ ІҮ 

520 FOR 1Х-59 ТО 299 STEP 20: LINE (1Х,199)-(1Х,195): МЕХТ ІХ 

530” 

540 FOR Ізі TO М 

550 PSET(X(I),Y(I)): LINE (X(1),Y(I)-2)-(X(1)-4,Y(I)+2) 

560 LINE -—(X(I)+4,Y(I)+2): LINE -(X(I),Y(I)-2) 

570 NEXT I 

580 ' 

590 LINE (X1,Y1)-(X2,Y2) 

600 * x 

MED “TTT EE EEE ЗЕ ЗЕ ЗЕ ЗЕ-ЗЕЗЕ PRINT THE REGRESSIDN EQUATION жек 


630 LOCATE 1,51 PRINT "Y "арх"; 
640 IF В >= O ТНЕМ РБІМТ "+";В ELSE PRINT "="$ ABS (В) 


END 
Fig. 12.8 
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Finally, the equation for the calculated regression line is displayed at the top of the screen. Lines 630 and 
640 generate this display. (Note that this is a text display, though it is being generated in the graphics mode.) 

Figures 12.9 and 12.10 illustrate the appearance of the screen when the program is executed. The data-entry 
phase, which occurs in the text mode, is illustrated in Fig. 12.9 for the following set of data. (The input data have 
been underlined in Fig. 12.9.) 


d yi Xi 
1 225 10 
2 287 20 
3 429 30 
4 542 40 
5 587 50 
6 744 60 
7 831 70 
8 880 80 


Notice the position of the flashing cursor following the prompt for Y (9). Since all of the data have been entered 
at this point, the user simply presses the carriage return in response to the prompt. This ends the data-entry phase. 


ЕЕЕ 
ж LINEAR REGRESSION ROUTINE * 
* * 
* Press RETURN after last data point * 
EEE E E Û Ê Ê E E ЭЕ ЗЕ ЗЕ DE AE DE DE E E E ЗЕ E E EEE E E E E EE EE 


YC 1) = 225 X€ 1 = 10 
Y( 2 ) = 287 Х( 2 = 20 

Y( S ) = 429 XC 3 (= 30 

YC 4) = 542 XC 4 Y= 40 

YC 5) = 587 ХС 5 (= 50 = 
YC 4) = 744 X( é )= 60 

УС 7) = 851 ХХ 7 = 70 

Yt 8 ) = 880 X( 8 )= 80 

Y( 9) = 

Fig. 12.9 


Figure 12.10 (page 322) shows the corresponding graphical display. We see that the equation for the calculated 
regression line is 
y = 9.875х + 121.25 


The line that is shown passing through the given data points is generated by this equation, thoug! 


line has been scaled to fill the screen. pw Д 
The graphical display illustrates the accuracy with which the calculated regression line represents the given 


data points. 


h the displayed 


12.3 SHAPES 
Most versions of microcomputer BASIC include statements that allow simple shapes to be 
| form of the LINE statement that will 


drawn. For example, Microsoft BASIC includes a specia 0 ^ š 
generate rectangles and a CIRCLE statement that can generate circles and ellipses. These objects 
can be filled with an available color if desired. Many interesting graphical effects can be created by 
combining these objects in different ways. ~ 

Consider, for example, the LINE statement discussed in the last section. If the statement ends 
with the letter B, e.g., LINE (20,50) — (300,150),3,B, then the two pairs of coordinates will be 
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У = 9.875 = X + 121.25 


Fig. 12.10 


interpreted аз the opposite согпегв of а rectangle (i.e., a Бох”). Hence, а rectangle whose diagonal 
connects these two points will be drawn in the indicated color. 


EXAMPLE 12.13 
A Microsoft BASIC program, written for the IBM Personal Computer, contains the following statements. 


10 SCREEN 1 : COLOR 4,1 
20 ІЛМЕ (20,50)- (300,150),3,В 


Line 10 specifies medium-resolution graphics, with а гей background and color palette number 1 (colors cyan, 
magenta and white). Line 20 generates a white rectangular outline whose diagonal connects points (20,50) and 
(300,150), against the red background. (Compare with Example 12.9.) 


Тһе next example illustrates а complete BASIC program in which the generation of rectangles is 
utilized more creatively. 


EXAMPLE 12.14 Expanding Rectangles 


Figure 12.11 contains a complete Microsoft BASIC Program, written for the IBM Personal Computer, 
which causes a sequence of rectangles to move from the center of the screen to the outer edges. Groups of 
rectangles are generated in alternating foreground and background colors, creating the illusion of “pulses” of 


rectangular shapes originating at the center of the screen. The program also utilizes sound to enhance the 
graphical effects. 


CHAP. 


MICROCOMPUTER GRAPHICS 323 


‘perte EXPANDING RECTANGLES Жж 


KEY OFF : CLS 
SCREEN 1 : COLOR 0,1 : C=3 
Р=0 : Q=-45 


эне BEGIN MAIN LOOP *** 
LINE (160-1.6%Р,100-Р)-(160+1.6%Р,100+Р) ,C,B 


IF Q >= O THEN LINE (160-1.6*9,100-8)-(160*1.6*0,100*Q) ,0,B 
P=P+5 : IF P > 95 THEN Р=О : C=1+INT(S*RND) 


0=0+5 : IF 0 > 95 THEN 8-0 

IF P=0 OR Q=0 THEN SOUND 20+INT(1000#RND) ,10 
BOTO 90 

END 


Fig. 12.11 


Within the program, line 30 clears the screen. Line 40 invokes medium-resolution graphics, with a black 
background, color palette 1 (colors cyan, magenta and white), and foreground color 3 (white). The program 
utilizes two counters, P and Q, which are initialized in line 50. 

The main loop begins with line 90, which generates a rectangle whose size is determined.by the value that is 
assigned to P. (Initially P=0, causing the first rectangle to appear as a dot at the center of the screen.) The color 
of the rectangle is determined by the value that is assigned to C (initially white). 

Line 100 also generates a rectangle, provided Q is not negative. (Q is initially assigned a negative value in 
order to create a delay. Thereafter, it increases and remains nonnegative.) Now, however, the rectangle will be 
generated in the background color (black). The size of this rectangle will be determined by the value assigned to 


Fig. 12.12 
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Q. Since P and Q will always differ in magnitude, this rectangle will not coincide with the rectangle generated in 
line 90. The effect will be to erase one of the rectangles drawn earlier. 

Lines 110 and 120 increment P and Q, respectively, resetting each parameter to zero if its value exceeds 95. 
Also, a new foreground color is generated randomly whenever P is reset to zero. 

Line 130 generates a random sound whenever a new sequence of rectangles begins at the center of the 
screen (i.e., whenever P or Q is reset to zero). Line 140 then returns control to line 90 for another pass through 
the loop. Note that the loop will continue to execute indefinitely. 

Figure 12.12 indicates the type of graphical display that is generated once the program begins to execute. As 
with other programs of this type, however, the reader is encouraged to actually run the program in order to fully 
appreciate the dynamic effects that are created. 


Now suppose that a LINE statement ends with the letters BF rather than simply B, e.g., LINE 
(20,50) - (300,150),3,BF. The last letter, F, represents "fill." This parameter causes the rectangle 
(generated by the parameter B) to be filled with the specified foreground color. 


EXAMPLE 12.15 


Consider once again a Microsoft BASIC Program, written for the IBM Personal Computer, which contains 
the statements 


10 SCREEN 1 : COLOR 0,0 
20 LINE (20,50) — (300,150),1,BF 


Line 10 invokes medium-resolution graphics, with а black background and color palette number 0 (colors green, 
red and brown). Line 20 causes a solid green rectangle to be generated whose diagonal connects the points 
(20,50) and (300,150), This rectangle will be displayed against a black background. (Compare with Examples 12.9 


10 "exea KALEIDOSCOPE E E E IE IE IE RE 


20 

30 KEY OFF : CLS : SCREEN 1 
40 * 

SO “жжж BEGIN MAIN LOOP жән 
60 ° 


70 U=INT(10#RND) : X=9-INT((U+1)*RND) : Y=9-INT((U+1)#RND) z C=INT(4#RND) 
80 LINE (16ówX,10#Y)-(16%X+15,10#Y+9) ,C,BF 
90 LINE 6504-16%Х,10жҮ)-(519-16жХ,10жҮ49),С,ВЕ 
00 LINE (16%Х,190-10жҮ)-(16жХ%15,199-10жү) ‚С, ВЕ 
110 LINE (504-16%Х,190-10%Ү)-(319-16%Х,199-10ЖҮ) „С, BF 
120 LINE (16%*Ү,10#Х) –(16#*ү+15, 10*X*9),C,BF 
130 LINE (16*Y,190-10*X) - (164Y415,199-104X) |C BF 
140 LINE (304-16#Y,10#X)-(319-16#Y, 10*X+9) ,C, BF 


150 LINE (504-16%Ү,190-10%Х)-(519-16жҮ,199:10жх) |C, BF 
160 GOTO 70 


170 END 


Fig. 12.13 
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The repeated generation of the randomly colored blocks occurs in the main loop, which comprises 
lines 70 through 160. Each pass through the loop generates eight blocks, which are located symmetrically with 
respect to one another, with one block in each of the wedges. Each group of blocks will be the same color. Thus 
line 70 establishes the location of the first block and the color of all eight blocks. Notice that the values of the 
coordinates X and Y are dependent on the randomly generated parameter U. This causes the pairs of 
coordinates to be clustered toward the center of the screen. 

Lines 80 through 150 each generate one of the blocks. Each block will be 16 pixels wide and 10 pixels (10 
scan lines) high. The end points are chosen in such a manner that the blocks will create a symmetric pattern on 
the screen. It is this symmetry that simulates the action of the kaleidoscope. 

Figure 12.14 illustrates a typical pattern. Again, however, the reader is urged to actually run the program to 
appreciate the dynamic patterns that are created. 
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Fig. 12.14 d 


Some versions of Microsoft BASIC include a CIRCLE statement, which permits circles, arcs and 
ellipses to be drawn. In its simplest form, this statement consists of the word CIRCLE, followed by a 
pair of coordinates enclosed in parentheses and separated by a comma. The coordinates must be 
followed by a value for the radius, e.g., CIRCLE (160,100),80. k 

An integer indicating the choice of color may appear after the radius as an option, e.g., CIRCLE 
(160,100),80,3. If the color is not specified in this manner, color number 3 will automatically be 
selected from the current palette. 


EXAMPLE 12.17 
The following statements are included in an advanced Microsoft BASIC program (BASICA), written for 
the IBM Personal Computer. 
10 SCREEN 1 : COLOR 4,1 
20 CIRCLE (160,100),80,3 


Line 10 specifies medium-resolution graphics, with a red background and color palette number 1 (colors cyan, 
magenta and white). Line 20 generates a white circular outline whose center is at the middle of the screen, i.e., 


point (160,100), and whose radius is 80 pixels. 
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EXAMPLE 12.18 Expanding Circles 


Figure 12.15 contains an advanced Microsoft BASIC program, written for the IBM Personal Computer. 
This program causes repeated groups of concentric circles to be generated, with each group starting at the center 
of the screen and moving radially outward toward the edge. Each group of circles will be drawn in a single color 
which is selected randomly. As successive groups of circles are generated, however, the new circles will create 
interference patterns with the previous circles, thus forming interesting and colorful patterns. 


10 22252522 CIRCLES жы 
20 ' 

30 KEY OFF : CLS 

40 SCREEN 1 : COLOR 0,1 

50 LINE (59,0)-(279,199),5,В 
60 CLR=1 


BO “жжж BEGIN LOOP +++ 


100 FOR R=5 TO 120 STEP 5 
110 CIRCLE (160,100) ,R,CLR 

120 NEXT R 

150 CLR=CLR+1 : IF CLR > 5 THEN CLR=1 
140 GOTO 100 

150 END 


Fig. 12.15 


Fig. 12.16 
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Let us consider this program in detail. Line 30 removes any previous display of function key definitions and 
clears the screen, whereas line 40 specifies medium-resolution graphics, with a black background and color 
palette number 1 (colors cyan, magenta and white). Line 50 generates a white square around the outer edges of 
the screen. А color (cyan) for the first group of circles is then specified in line 60. 

The repeated portion of the program begins with line 100 and continues through line 140. Lines 100 through 
120 make up a FOR-TO loop that generates a group of concentric circles whose color is specified by the 
parameter CLR. The value of the color parameter is then changed in line 130. (Note that the value of this 
parameter will always be either 1, 2 or 3.) Line 140 returns control to the FOR-TO loop, thus generating another 
group of circles, and so on. 

Figure 12.16 indicates the type of patterns that are generated by this program. It should be understood, 
however, that the patterns include interesting color variations and that they are in constant motion. Thus, the 
reader should observe the program in execution in order to appreciate what happens. 


The CIRCLE statement does not include a provision for filling the circle with any color other 
than the background color. However, most versions of Microsoft BASIC that include the CIRCLE 
statement also include the PAINT statement, which allows any closed shape (including circles, ellipses 
and rectangles) to be filled with other colors. This statement consists of the word PAINT, followed by 
a pair of coordinates enclosed in parentheses and separated by a comma, e.g., PAINT (160,100). The 
coordinates can represent any enclosed point within the shape that is to be filled. 

The coordinates may be followed Бу: ап integer which specifies the color, e.g., PAINT 
(160,100),3. If the color is not specified, then color number 3 will automatically be selected from the 
current palette. 


EXAMPLE 12.19 A Filled Lightning Bolt 


Let us again examine the program given in Example 12.10, which generates a "lightning bolt" (see Fig. 
12.4). Suppose that we now add a PAINT statement to this program; i.e., 


90 PAINT (100,40),2 


The complete program is shown in Fig. 12.17. Notice that the coordinates (100,40) specified by the 
PAINT statement refer to a point which is contained within the figure. Also, note that the color (2) is the same 
as that specified by the LINE statements. Hence, the effect of the PAINT statement will be to generate a solid 


red figure. 


10 ‘жаныннын. LIGHTNING BOLT d«3300993999090€* 
20 ° 

30 KEY OFF : CLS 

40 SCREEN 1 : COLOR 0,0 

50 LINE (20,20)-(120,80),2 : LINE -(80,80),2 
60 LINE -(220,180),2 : LINE -(140,100),2 

70 LINE -(190,100),2 1 LINE -(110,20),2 

80 LINE -(20,20),2 

90 PAINT (100,40) ,2 


Fig. 12.17 


$ the figure that is generated by this program (compare with Fig. 12.5). Remember, 


Figure 12.18 illustrate: ! < 
round if the program is run оп a computer with 


however, that the figure will appear in red against a black backg 
a color monitor. 

The color parameter in the PAINT statement can be followed by an additional parameter which 
represents the boundary color, e.g., PAINT (160,100),3,2. The object to be filled in must match this 
color. Thus, if the point specified by the PAINT statement is contained within more than one 
object and each object has a different color, the boundary color will determine which object will be 


filled. 
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Fig. 12.18 


EXAMPLE 12.20 
Now suppose that an advanced Microsoft BASIC program contains the following four statements. 


10 SCREEN 1 : COLOR 4,1 
20 CIRCLE (160,100),80,2 

30 CIRCLE (160,100),60,3 

40 PAINT (160,100),3,2 


These statements cause two concentric circles to be generated. The outer circle (defined by line 20) will be 
magenta with a radius of 80, and the inner circle (line 30) will be white with a radius of 60. The PAINT 
statement in line 40 will cause the outer circle to be filled with color number 3 (white), since the boundary color 
in line 40 (i.e., color number 2) coincides with the color specified in line 20. 


The CIRCLE statement can be used to generate not only full circles but also portions of circles 
(arcs). To do so, the color parameter must be followed by two additional parameters: a starting angle 
and an ending angle. These angles are measured in the traditional geometric sense, increasing in the 
counterclockwise direction from the right half of the horizontal axis (і.е., the right half of the 
abscissa). Both angles must be expressed in radians and therefore must fall within the range of 0 to 
2m, e.g., CIRCLE (160,100),80,1,0,3.14. 

If a value for the color parameter is not included in the CIRCLE statement but the starting and 
ending angles are included, then the value for the radius must be followed by two commas, e.g., 
CIRCLE (160,100),80,,0,3.14. The two consecutive commas denote an empty color parameter. 


EXAMPLE 12.21 


The following statements are included in an advanced Microsoft BASIC program (BASICA), written for 
the IBM Personal Computer. 


10 SCREEN 1 : COLOR 0,0 
20 CIRCLE (160,100),80,1,0,3.14 
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Line 10 specifies medium-resolution graphics, with a black background and color palette number 0 (colors green, 
red and brown). Line 20 then generates the top half of a green circle with radius 80. (Note that the starting and 
ending angles аге 0 and т, respectively.) 

If line 20 were replaced with 


20 CIRCLE (160,100),80,1,3.14,0 


then the bottom half of a green circle would be generated, since the starting and ending angles are т and 27, 
respectively. This same effect could be achieved by writing 


20 CIRCLE (160,100),80,1,3.14,6.28 
Now suppose that the original version of line 20 is replaced with 
20 CIRCLE (160,100),80,,0,3.14 


This statement will generate the top half of a circle, but in brown rather than green. (Since a value for the 
color parameter is not explicitly specified, the default value of 3 will apply; hence the color brown.) 


The starting and ending angles in the CIRCLE statement can be negative as well as positive, e.g., 
CIRCLE (160,100),80,1,—3.14,—6.28. Negative angles will still be interpreted as though they were 
positive, in the geometric sense. The effect of a negative angle, however, is to connect the 
corresponding end point to the center of the circle. . 


EXAMPLE 12.22 


Now suppose that the advanced Microsoft BASIC program described in the last example contained the 
statements 


10 SCREEN 1 : COLOR 0,0 
20 CIRCLE (160,100),80,1,-3.14,-6.28 


Line 20 will now generate the bottom half of a green circle, with a horizontal line connecting the two end points. 


EXAMPLE 12.23 


The following statements will generate a figure that is familiar to many video-game buffs. 


10 SCREEN 1 : COLOR 0,1 

20 РІ-3.141593 

30 CIRCLE (160,100),40,2,-Р1/4,-2жРІ 
40 CIRCLE (170,78),5,0 

50 PAINT (150,100),2,2 


Note that the figure will be filled with magenta. 


EXAMPLE 12.24 A Piechart Generator 


A "piechart" is a circular graph that is generally used to represent data which is expressed in the form of 
percentages. Each piece of information (i.e., each percentage) is represented in terms of a "'pie-shaped" circular 
sector. The circumference of each sector is proportional to the value of the corresponding data point. Hence, the 
value 40 percent would be represented by a circular sector whose circumference is 40 percent of the entire circle. 

Figure 12.19 shows a complete BASIC piechart generator, written in advanced Microsoft BASIC for the 
IBM Personal Computer. Each piece of data is assumed to consist of a title and a numerical value for the 
percentage. Hence each sector within the piechart will be accompanied by an appropriate label. ) 

This program will generate а piechart containing as many as six sectors. The program consists of four main 
sections: a heading and initialization section, a data-entry section, a high-resolution graphics section that 
generates the actual piechart, and a concluding section that labels each of the sectors. i C 

Let us consider the individual instructions in some detail. Line 30 removes any previous function key 
definitions and clears the screen. Line 40 specifies text mode, white characters against a black background. The 
required program arrays are defined in line 50, and an initial screen display is generated by lines 60 through 100. 

Lines 140 through 230 make up the data input section. Line 140 prompts for the number of sectors. This 


330 MICROCOMPUTER GRAPHICS [CHAP. 12 


10 's 999€. PIECHART GENERATOR жены 


30 KEY OFF: CLS 

40 WIDTH 80: SCREEN O: COLOR 7,0 

50 DIM TITLE$ (6) ,PERCENT (6) А (5) 

60 LOCATE 1,20: PRINT STRING$(40,"«") 

70 LOCATE 2,20: PRINT "+"; ТАВ (59) ; "+" 

BO LOCATE 3,20: PRINT "* PIECHART GENERATOR as 
90 LOCATE 4,20: PRINT "#";TAB(59);"#" 

100 LOCATE 5,20: PRINT STRING$(40,"*"): PRINT 

110 

120 ‘ининининиииииии» ENTER DATA FOR EACH SECTOR !!eee Hee 
130 * 

140 LOCATE 8,1: INPUT "Enter number of sectors (1-6): ",N: PRINT 
150 IF N < 1 OR N > 6 THEN BEEP: LOCATE 8,32: PRINT SPACE$(&6);: GOTO 140 
160 SUM-O 

170 FOR I-1 TO N 

180 PRINT "Sector";I;SPC(8); 

190 INPUT "Title: ",TITLE$(I) 

200 LOCATE CSRLIN-1,40: INPUT "Percent: ",PERCENT(I) 

210 SUM=SUM+PERCENT (I) 


220 NEXT I 
230 IF SUM < 99.9 OR SUM > 100.1 THEN BEEP: CLS: LOCATE 23: 


PRINT "Percentages do not sum to 100 - Please try again": GOTO 60 
240 ' 
250 'wxexeeeeeee GENERATE THE PIECHART ses 
260 ° 
270 SCREEN 2 
280 Р!=$, 14 
290 Аі=0 
500 FOR I=1 ТОМ 
310 A2=A1+2*#PI#PERCENT (1) /100 
320 А (ТГ) =(А1+42) /2 
550 CIRCLE (520,100),150,1,-А1,-А2 
540 А1-А2 
550 МЕХТ І 
360 ° 
370 "'xxeeeieee LABEL THE SECTORS HHHH HNN 
380 ° 
$90 FOR 1=1 TO N 
400 C1=(320+75*COS (ACI)) ) N83 
410 IF А(1) > PI/2 AND ACI) < 3«PI/2 THEN Ci-Ci-6 
420 R1=(100-3O#SIN(A(I)))\84+1 
430 IF ACI) < PI THEN Ri-Ri-1 ELSE R1i=Ri+i 
440 LOCATE R1,Ci: PRINT PERCENT(I); "ZX" 
450 ' 
460 C2=(320+150#COS (A (I))) \8+5 
470 IF А(1) > PI/2 AND ACI) < 3*#PI/2 THEN C2=C2-LEN(TITLE$(I))-8 
480 R2= (100-62. S*SIN(ACI)) ) NB*1 
490 IF ACI) < PI THEN R2-R2-1 ELSE R2=R2+1 
. 500 LOCATE R2,C2: PRINT TITLE$(I); 
510 NEXT I 
520 END 


Fig. 12.19 


value must be greater than zero, but it cannot exceed six. Line 150 performs an error check on. the specified 
number of sectors and returns to line 140 if the value supplied is out of range (try again). The cumulative sum of 
all percentages is initialized in line 160. Lines 170 through 220 then prompt for each of the data items (first the 
title of each sector, then the corresponding percentage). The percentages are accumulated as they are entered. 
Finally, line 230 checks to see if all the percentages sum to 100 (or very nearly so). If not, the initial screen 
display is regenerated, and the entire data input portion of the program is repeated. 
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The actual piechart is generated in lines 270 through 350. Line 270 causes the program to switch to 
high-resolution graphics, clearing the screen in the process. Lines 280 and 290 assign numerical values to the 
variables PI and A1 (the starting angle for the first sector). Lines 300 through 350 then generate the individual 
sectors of the piechart. The starting angle will always be known. Hence, the ending angle is calculated in line 
310, and a representative average angle is determined in line 320. This last value is stored in an array for later 
use when the piechart is labeled. The sector itself is then generated in line 330. (Note the use of the CIRCLE 
statement with negative starting and ending values.) Finally, the value for the starting angle is reassigned in line 
340 in preparation for the next sector. 

Lines 390 through 510 cause the piechart to be labeled. Note that this is carried out while the program 
remains in the high-resolution graphics mode. In lines 400 through 440, the location of each percentage is 
determined, making use of the average angles calculated in the previous section, and the percentage is then 
displayed. (The details of these individual statements need not be discussed except to mention that each text 
character has a height of 8 pixels; hence the need for the integer division by 8.) Similarly, the location of each 
title is determined and then displayed in lines 460 through 500. The entire piechart will have been generated, 
with appropriate labels, upon completion of this loop. 

Now suppose that the program is executed using the following set of input data: 


Source of Кезепие Percentage 
Tuition 45 
State aid 25 
Research 15 
Gifts 8 
Other yi 


The input dialog is illustrated in Fig. 12.20. (Note that the user's responses are underlined.) Figure 12.21 shows 
the resulting piechart. 
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* PIECHART GENERATOR * 
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Enter number of sectors (1-6): 5 


: 45 
Sector 1 Title: Tuition Percent: 
Sector 2 Title: State aid Percent: 25 
Sector 3 Title: Research Percent: 15 
Sector 4 Title: Gifts Percent: 8 
Sector 5 Title: Other Percent: 7 
Fig. 12.20 


e CIRCLE statement which has not been 


There is one additional parameter associated with th nt 
te ellipses and elliptical arcs rather than 


discussed. This is the aspect parameter. It is used to crea 


circles and circular arcs. A 2 
Тһе aspect parameter must follow the starting and ending angles in the CIRCLE statement, CY A 
CIRCLE (160,100),80,1,0,3.14,2. It must be a positive number (not necessarily an integer) or an 
expression resulting in a positive numerical value. А value of 1 results in a figure which is circular, or 
very nearly so. (The value required to produce a perfect circle may vary somewhat from one 
an 1 will generate a horizontal ellipse, whereas a value greater 


computer to another.) A value less th I 
than 1 will generate a vertical ellipse. The more the aspect parameter differs from 1, the greater the 


eccentricity. 4 
When the CIRCLE statement і used to generate ап ellipse o 
parameter refers to the length of the major (largest) axis. 


г ап elliptical arc, the radius 
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Fig. 12.21 


EXAMPLE 12.25 


The following statements are included in an advanced Microsoft BASIC program (BASICA), written for the 
IBM Personal Computer. 


10 SCREEN 1 : COLOR 0,0 
20 PI=3.141593 
30 CIRCLE (160,100),80,1,0,PI,.5 


Line 10 specifies medium-resolution graphics, with a black background and color palette number 0 (colors green, 
red and brown). Line 20 assigns a value to the parameter PI, and line 30 generates a green elliptical arc that 
ranges from 0 to 7. Note that the value of the aspect parameter is less than 1; hence, the major axis of the 
elliptical arc will be horizontal. Moreover, the length of the major axis will be 160 pixels since the radius is 
assigned a value of 80. 


EXAMPLE 12.26 
Now suppose that an advanced Microsoft BASIC program contains the following statements. 


10 SCREEN 1 : COLOR 0,1 
20 CIRCLE (160,100),50,,,,.5 


Line 10 specifies medium-resolution graphics, with a black background and color palette number 1 (colors cyan, 
magenta and white). Line 20 causes a white horizontal ellipse to be generated at the center of the screen (note 
that white is the default color, corresponding to a value of 3). The major axis will be 100 units long, since the 
value of the radius is 50. 

If line 20 were changed to 


20 CIRCLE (160,100),50,,,,2 


then the ellipse would be vertical rather than horizontal. 
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EXAMPLE 12.27 Blimp with Animated Text 


Figure 12.22 contains an advanced Microsoft BASIC program, written for the IBM Personal Computer, that 


generates a drawing of a blimp. At the center of the blimp is an area that displays an animated message (in this 
case, SCHAUM'S OUTLINES). 


10 ‘HHHHHHHHHH# BLIMP жены 


20 

30 KEY OFF : CLS 

40 TEXT$=" SCHAUM'S OUTLINES 
50 SCREEN 1 : COLOR 0,1 

eo ° 

70 'w** DRAW THE BLIMP ###* 

80 * 


90 CIRCLE (150,100),150,3,, 
100 CIRCLE (150,100),150,3,,,.3 

110 CIRCLE (150,100) ,150,3,,,-2 

120 LINE (260,60)- (270,40) 

130 LINE -(320,40) : LINE -(300,100) 
140 LINE (260,140)-(270,160) 

150 LINE - (520,160) : LINE -(500,100) 
160 LINE (260,99)-(300,99) 

170 LINE (260,100)- (300,100) 

180 LINE (118,160)-(125,170) 

190 LINE -(175,170) : LINE -(182,160) 
200 CIRCLE (135,165),3 

210 CIRCLE (150,165),3 

220 CIRCLE (165,165),3 

230 LINE (80,90)-(225,110) ,3,B 

240 ' 

250 “жж GENERATE THE MESSAGE *** 

260 ' 

270 FOR 1=1 TO 52 

280 LOCATE 13,12 : PRINT MID$(TEXT$,1,16); 
290 FOR COUNT-1 TO 200 : NEXT COUNT 
300 LOCATE 13,12 : PRINT ЗРАСЕ$ (16); 
310 NEXT I 

320 GOTO 270 

550 END 


Fig. 12.22 


rs the screen, and line 40 assigns the message to 


The struct f thi ram is quite simple. Line 30 clea 
Wesce ls А R with a black background and color palette 


the variable TEXT$. Line 50 specifies medium-resolution graphics, 


number 1 (colors cyan, magenta and white). a ў 
Тһе blimp itself is generated by lines 90 through 230. In particular, lines 90, 100 and 110 generate three 


concentric ellipses that make up the overall shape of the blimp. Lines 120 through 170 generate the tail section, 
and lines 180 through 230 generate the undercarriage and the outline of the display area. j 

The animated message is generated by lines 270 through 320. Note that this group of statements involves 
the use of the MID$ function within а FOR-TO loop. The essential idea is to display 16 characters of the text at 
any one time. However, each pass through the loop will result in the group of characters being shifted one 
character to the right. Following the printing of each group of characters there isa short time delay. Then 
display area is cleared in preparation for the next group of characters. Notice that line 320 causes the loop to be 
repeated, thus causing the animated message to continue indefinitely. : 2 4 

Figure 12.23 illustrates а typical display, though the reader should remember that the display is constantly in 


motion when the program is being executed. 


Some versions of microcomputer BASIC also include the DRAW statement, Which allows a 
complex shape to be defined in terms of a string. For example, the statement DRAW R100 D50 
L100 U50” defines a horizontal rectangle by moving right 100 units, down 50 units, left 100 units and 


then up 50 units. Execution of this statement will automatically generate the rectangle. 
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ED 


Fig. 12.23 


We will not discuss the DRAW statement in any detail within this book, as the rules for defining 
the shape strings are somewhat complex. For more information on this subject, the reader is referred 
to the BASIC reference manual that is available for his or her particular microcomputer. 


12.4 ANIMATIONS 


One of the most interesting and entertaining applications of microcomputers is that of animated 
displays. Such applications provide a basis for many computer games, and they are an important part 
of many educational and artistic programs. 

We have already encountered some simple animations in Examples 12.8 (dots in space), 12.11 
(kinetic art), 12.14 (expanding rectangles), 12.18 (expanding circles) and 12.27 (blimp with animated 
text). All these animations are based upon the same idea: namely, display an object or a line of text, 
create a brief time delay and erase the object. Then move to a nearby location and repeat the 
sequence. 

This section is concerned with animations that involve the movement of filled objects. We will 
first see how this is accomplished using now-familiar statements such as CIRCLE and PAINT. An 
alternative approach, based upon two new statements—GET апа PUT—will then be presented. 
We shall see that the second approach offers some distinct advantages over the first one. 


EXAMPLE 12.28 Simulation of a Bouncing Ball 


nearby location and repeat the entire procedure. Whenever a barrier (i.e., a “wall’’) is encountered the ball will 


A complete program, written in advanced Microsoft BASIC for the IBM Personal Computer, is shown in 
Fig. 12.24. This program utilizes high-resolution graphics and therefore does not involve the use of multiple 
colors. (The IBM Personal Computer supports only black and white in the high-resolution mode.) In this 
Program the initial location of the ball and the distance between successive locations will be generated randomly. 
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10 ‘erste BOUNCING BALL нен 


30 KEY OFF : CLS 

40 DEFINT А-2 

SO RANDOMIZE : CLS 

60 SCREEN 2 

70 LINE (0,0)-(659,199),,В 

ВО LINE (10,5)-(629,194),,В 

90 РАІМТ (5,2) 

100 X=20+INT(600#RND) : Y=20+INT(160*#RND) 

110 DX=S#(INT(4#RND) +1) : DY=5# (INT (4#RND) +1 


150 “жжж BEGIN LOOP жж 


150 CIRCLE (Х,Ү),10,0 

160 PAINT (X,Y),0 

170 X1=X+DX : Y1=Y+DY 

180 IF Xi < 21 THEN Х1=21 : DX=-DX : GOTO 200 
190 IF Xi > 618 THEN X1=618 : DX--DX 

200 IF Yi < 10 THEN Yi-10 r DY=-DY : GOTO 220 
210 IF Y1 > 189 THEN Yi=189 : DY--DY 

220 CIRCLE (X1,Y1),10 

230 PAINT (X1,Y1) 

240 Х=Х1 : Y=Y1 

250 GOTO 150 

260 ЕМО 


Fig. 12.24 


Let из consider this program in detail. Line 30 removes any previous display of function key definitions and 
clears the screen. Line 40 defines all variables to be integer-type variables, line 50 initializes the random number 
generator and then clears the screen, and line 60 specifies high-resolution graphics. Lines 70 through 90 generate 
a solid rectangle around the outer edges of the screen, thus providing the barrier that will contain the ball's 
motion. А random starting point is then generated in line 100, and a set of values for incrementing each move is 
randomly generated in line 110. 


The repeated portion of the program involves lines 150 through 250. Lines 150 and 160 cause the ball to be 


erased from the current location (ie., the ball is displayed in black, the background color, at the current 
location). Line 170 then generates a new location. In lines 180 through 210, the new point is tested to determine 
if the ball will go beyond the confines of the walls. If so, the direction of motion is altered, creating the illusion 


that the ball bounces off the walls and back into the confined interior space. 
Lines 220 and 230 cause the ball to be displayed at the new location and then filled with white. The values 
of the new coordinates are then assigned to the variables X and Y in line 240. These two variables will be used 


to erase the ball during the next pass through the loop. ў 
Figure 12.25 illustrates the type of output that is created when the program is run. The reader should 


remember, however, that the ball appears to be in constant motion when the program is actually executing. 


Though the preceding animation technique works reasonably well, the animation is relatively 
slow and it is sometimes accompanied by an annoying flicker. With some versions of microcomputer 
BASIC it is possible to generate faster, flicker-free animations through the use of the GET and PUT 
statements. With this method, the object to be animated is generated only once. The GET statement 
then transfers the object from the screen to an array. Thereafter, the PUT statement will transfer the 
object from the array back to the screen at a selected location. If the object is placed directly over 
itself, it will appear in a color that is opposite to the previous color (e.g. black replacing white). Thus, 
by executing a pair of PUTS at the same location, the object can automatically be displayed and then 
erased. (Note: the GET and PUT statements, when used in this manner, should not be confused with 
the GET and PUT statements that are used in conjunction with random data files, as described in 


Section 9.4, Example 9.31.) 


The general procedure, then, is to generate the o 
it in an array, using the GET statement. This is carr 


bject that will move about the screen and place 
ied out only once. The program then enters a 
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Fig. 12.25 


loop in which the object is erased from its old location (via the PUT statement), a new location is 
determined and the object is redisplayed at this new location (again via PUT). The animation is 


will contain the object, e.g., GET (X, Y) - (X--20, Y+20), FIGURE. 
The dimensionality of the array depends on both the size of the object (actually, the size of the 
enclosing rectangle) and the level of resolution. There is a rather involved formula for calculating the 


required dimensionality that makes use of these two factors. The reader is referred to the user's 
reference manual for his or her particular com 


€ coordinates represent the upper left corner of the 
nates are then followed by the name of the array, e.g. 
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EXAMPLE 12.29 The Bouncing Ball Revisited 


Let us again consider the animation of a ball within an enclosure, as described in Example 12.28. Now. 
however, we will generate the animation by means of the GET and PUT statements. : 

Figure 12.26 contains the complete program, again written in advanced Microsoft BASIC for the IBM 
Personal Computer. This program is similar to that shown in Fig. 12.24. There are, however, some important 
differences. Notice the addition of the DIM statement in line 70, which defines BALL to be a 34-element array. 
Also, note that the distance between successive locations (generated in line 120) has been decreased in order to 
smooth out the ball’s motion. This was not practical in the earlier version because the animation was too slow. 


10 ‘eee BOUNCING BALL Жы 
2043 

50 KEY OFF : CLS 

40 DEFINT A-Z 

50 RANDOMIZE : CLS 

60 SCREEN 2 

70 DIM BALL (34) 

ВО LINE (0,0)-(659,199),,В 

90 LINE (10,5)-(029,194),,В 

100 PAINT (5,2) 

110 X220«*INT(&OO*RND) : Y=20+INT(160#RND) 
120 DX=1+INT(10#RND) : DY=1+INT(10#RND) 
130 CIRCLE (X,Y),10 

140 PAINT (X,Y) 

150 GET (X-10,Y-10) - (X410, Y*10) ,BALL 


170 “жж BEGIN LOOP ### 


190 PUT (X-10,Y-10),BALL 

200 X1=X+DX : Y1=Y+DY 

210 IF X1 < 21 THEN Х1=21 : DX=-DX : GOTO 250 
220 IF Хі > 618 THEN X1=618 : DX--DX 

230 IF Yi < 10 THEN Ү1=10 : DYs-DY : GOTO 250 
240 IF Y1 > 189 THEN \1=189 : DY=-DY 

250 PUT (X1-10,Y1-10),BALL 

260 X=X1 : Y=Y1 

270 FOR C=1 TO 5: NEXT C 

280 GOTO 190 

290 END 


Fig. 12.26 


The CIRCLE and PAINT statements appear only once in the current program, in lines 130 and 140, 
respectively. These two statements provide an initial shape definition of the ball. The GET statement in line 150 
then causes this shape definition to be stored in the array called BALL. 

The loop portion of the program is also somewhat different than the earlier version. The pairs of CIRCLE 
and PAINT statements are now replaced by. PUT statements in lines 190 and 250. The first of these, in line 190, 
erases the ball from its previous location; the second displays the ball at its new location. Finally, notice the 
empty FOR-TO loop which has been added in line 270. This loop is intended to slow down the animation so that 
it is more pleasing to the eye. 

When the program is executed, t 
now be considerably faster and smoother. The rea 
appreciate the differences in the resulting animations. 


he screen will again appear as shown in Fig. 12.25, but the motion will 
der is urged to actually run both programs in order to better 


d in this manner need not be limited to a single moving object. 
en by means of multiple pairs of PUT statements. 
te array. The technique is illustrated in the next 


Animations that are create 
Multiple objects can also be moved about the scre 
Each object must, however, be stored in a separa! 
example. 
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EXAMPLE 12.30 А Game of Paddleball 


Here is a simple version of a popular video game, commonly referred to as “paddleball.” A ball is enclosed 
-by three walls. A small, movable "paddle" is located where the fourth wall would normally be placed. This 
paddle can move up and down in response to the setting of some control device, such as a joystick (we are 
assuming that the missing wall is vertical). The ball will be deflected back into the playing area if it is hit by the 
paddle; otherwise, the ball will pass through the opening and disappear. 

The object of the game is to anticipate the ball's trajectory as it moves toward the open area and to position 
the paddle so that it hits the ball, knocking it back into the playing area. The player will receive one point for 
each hit and lose one point for each miss. The ball will automatically reappear at some random location within 
the playing area after each miss. 

Figure 12.27 contains a complete BASIC program for this game. The program is written in advanced 
Microsoft BASIC for the IBM Personal Computer. It includes the use of medium-resolution graphics, joystick 
control statements and sound enhancements to accompany the movement of the ball. Thus, the program 
contains several of the features described in Chapter 10, as well as an animation technique. 

Let us now consider the principal features of this program. Line 30 removes any previous function key 
definitions and clears the screen, and line 40 declares all variables to be of type integer. Lines 50 through 70 
generate an introductory text display, and line 80 initializes the random number generator. Line 90 associates 
the signal coming from button 1 of the joystick with a subroutine and then activates this association (button 1 
will be used to stop the program). Line 100 calls for medium-resolution graphics, with a black background and 


and vertical velocity of the ball, as in the previous two examples. The paddle position is determined by P.) 
Lines 160 through 180 generate the three walls, and lines 190 and 200 cause brief text displays to be 
generated at the bottom of the screen, beneath the graphical display area. The text consists of the score and а 
prompt indicating how the game is ended. 
Line 240 causes the initial ball location to be generated randomly. The shape of the ball and the shape of 


determined by the test in line 340. 

Lines 350 through 370 test the location of the ball relative to the three fixed walls. If the computed location 
of the ball overlaps the location of à wall, an adjustment is made in the ball's location and its velocity is 
reversed, creating the illusion that the ball bounces off the wall. The bounce is accompanied by a short, 
high-pitched sound. 

Lines 380 and 390 cause the animated objects to be erased from their old locations, and lines 400 and 410 
cause them to be redrawn at their new locations. The values of the old locations are then initialized in line 420, 
and a short time delay is introduced in line 430, primarily to avoid excessive flickering. Line 440 returns control 
to line 300, thus initiating another pass through the loop. 

Lines 480 and 490 make up a subroutine that is accessed when the paddle hits the ball. Essentially, this 
subroutine creates a bouncing effect similar to that Produced when the ball touches one of the walls. The 


new random location. 
, The cumulative score is also decreased by 1, and a brief, low-pitched sound is generated. (Notice that a 
high-pitched sound is produced when the ball bounces off a Surface, but a low-pitched sound is heard when the 
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“жаннын PADDLEBALL GAME 3e 4 9€ 
KEY OFF : CLS 
DEFINT А-2 
LOCATE 4,1 : PRINT "Welcome to PADDLEBALL" 
LOCATE 8,1 : PRINT "Rules: 1 point for each hit, " 
LOCATE 10,7 : PRINT "-1 point for each miss" 
LOCATE 14,1 : RANDOMIZE : CLS 
ON STRIG(O) GOSUB 610 : STRIG(O) ON 

SCREEN 1 : COLOR 0,1 

DIM BALL (34) , PADDLE (22) 

DX-10 : DY=10 : Р-В : SCORE-O 


‘ttt DRAW THE BORDER 3eeeeer 
LINE (0,0)-(319,5) ,1,BF 


LINE (0,178)-(319,183) ,1,BF 
LINE (314,6)-(319,177) ,1,BF 


190 LOCATE 25,1 : PRINT "Score: "; SCORE; 


LOCATE 25,20 : PRINT "To stop, press Bi"; 
‘###### DRAW THE INITIAL FIGURES ++ 


X210*INT(GOO*RND) : Y=10+INT(164#RND) 


250 CIRCLE (X,Y),5 : PAINT (X,Y) : GET (Х-5,Ү-5)-(Х%5,Ү%5) ,BALL 


260 LINE(O,P)-(6,P+20) ,5,ВЕ : GET (0,Р) – (b,P*20) ,PADDLE 
27095 

280 'wwwww* MAIN LOOP жен 

290" Ы 

500 X1=X+DX : Y1=Y+DY : DUMMY-STICK(O) : P1-2199*STICK(1)/100 


510 IF Pi < 6 THEN Р1=6 : GOTO 550 


IF P1 > 157 ТНЕМ Р1=157 


330 IF X1 >= 12 THEN 350 


IF Yi >= Р1-2 AND Yi <= Р1+22 THEN GOSUB 480 ELSE GOSUB 550 


350 IF X1 > 308 THEN X1=308 : DX=-DX : SOUND 1000,2 


IF Yi < 11 THEN У1=11 : DY=-DY : SOUND 1000,2 : GOTO 380 


360 

370 IF Yi > 172 THEN Y1=172 : DYs-DY : SOUND 1000,2 
380 PUT (Х-5,Ү-5) ,BALL ‘erase ball 

390 PUT (0,P),PADDLE ‘erase paddle 

400 PUT (Х1-5,Ү1-5),БАШ. ‘redraw ball 

410 PUT (0,P1),PADDLE 'redraw paddle 

420 Х=Х1 : Y=Y1 : Р=Р1 

430 FOR С=1 TO 10: NEXT C 

440 GOTO 300 

450 ' 

460 “жин PADDLE HIT THE BALL ######* 

470 ' 

480 X1=12 : DX=-DX : SCORE=SCORE+1 : SOUND 1000,2 
490 LOCATE 25,7 : PRINT SCORE; t RETURN 360 

500 ' 

510 ‘###### PADDLE MISSED THE BALL 3«** 

5207” 

550 IF Хі >= 5 THEN RETURN 360 

540 PUT (X-5,Y-5),BALL : PUT (0,P) ,PADDLE 

550 DX=10 : DY=10 : SCORE=SCORE-1 : SOUND 50,2 


560 LOCATE 25,7 : PRINT SCORE; 


FOR 1=1 -ТО 1000 : NEXT I : RETURN 240 
"aae END THE GAME ###### 


END 


Fig. 12.27 
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When the program is executed, the text display shown in Fig. 12.28 first appears. Once a value is provided 
for the random number generator, however, the screen switches to medium-resolution graphics, showing cyan 
walls, a white ball and a white paddle. The ball appears at some random location on the screen and remains in 
constant motion, bouncing off whatever surface it happens to touch. Figure 12.29 illustrates the appearance of 
the screen as the ball approaches the paddle from the upper right. 


Welcome to PADDLEBALL 
Rules: 1 point for each hit, 
-1 point for each miss 


Random number seed (-32768 to 32757)? 12545 
Fig. 12.28 


ШШШ AON Me ҮҮ 


ШШ ШШ ХАЛ о Т 
Score:-5 To stop, press Bi 
Fig. 12.29 


Throughout all this, the player controls the location of t 
The repeated bouncing motion continues until the ball is all 
due to improper positioning of the 

Each time the paddle hits the ball, the cumulative score increases by 1; similarly, 


; Тһе reader is urged to run this program, if at all possible, 
This, of course, is highly desirable for all programs of this type. 
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12.5 CHARACTER GRAPHICS 


Certain graphical effects can often be achieved through the clever manipulation of text charac- 
ters. Such effects include animated message displays and the creation of simple graphs and shapes. 
We have already seen some examples of animated message displays with vertical scrolling in 
Examples 10.10 and 10.17 and a horizontal animation included as a part of Example 12.27. 

The bouncing ball program shown in Example 6.28 illustrates a simple but effective way to utilize 
character graphics on a line printer. And the program shown in Example 10.13 allows a joystick to be 
used to create various shapes as clusters of asterisks. As a rule, graphical effects that are created in 
this manner are less effective than those created in a graphics mode. Nevertheless, such graphical 
effects do serve a purpose, particularly for those microcomputers that do not support separate text 
and graphics modes. 

The following example illustrates the use of character-type graphics to represent numeric data. 


EXAMPLE 12.31 А Barchart Generator 


Suppose we have a group of numerical values that we wish to display in graphical form, emphasizing the 
discrete nature of each value. This can often best be accomplished by means of a barchart, in which each value is 
represented by a rectangle whose height is directly proportional to its corresponding value. The rectangles are 
normally displayed horizontally, with all of them visible at the same time. 

Figure 12.30 contains a Microsoft BASIC program, written for the IBM Personal Computer, that causes a 
barchart to be generated for as many as 12 numerical values. Each value is assumed to be nonnegative (i.e., 
greater than or equal to zero). The values will be displayed above each of their respective rectangles (i.e., above 
each "bar"). Each value will have a corresponding label which will be displayed at the bottom of the bar. The 
bars themselves will be made up of clusters of asterisks. 

Let us examine this program in some detail. Lines 30 through 110 clear the screen, define the arrays 
LABELS and Y, generate an initial heading and initialize YMAX. Lines 150 through 250 generate a series of 
interactive prompts for input data. 

The first item requested is a title for the barchart (line 150), followed by a request for the number of data 
items to be entered (lines 160 and 170). Notice that this last request includes ап error trap (line 170) which 
requires the user's response to be a positive value between 1 and 12. - 

Lines 180 through 250 make up a FOR-TO loop which prompts the user for each of the data items and 
its accompanying label. The loop includes an error trap (lines 210 and 220) which prevents some character 
other than a number from being entered for the requested value. Also, the largest input value is tagged in 
line 240. 

The actual bars are generated in lines 290 through 370. Line 290 clears the data-entry portion of the screen 
and calculates the width of each bar. (The greater the number of bars, the narrower each bar will be.) Lines 300 
through 370 make up а triple loop that is used to generate the bars. The outermost loop causes successive bars to 
be generated. (Notice that the top row of each bar, which is computed in line 310, is based upon the ratio of the 
given value to the maximum value.) The middle loop (lines 320 through 360) generates the rows that make up 
each bar, and the inner loop (lines 330 through 350) generates the columns within each row. 

Lines 410 through 490 label the barchart. The FOR-TO loop (lines 410 through 470) cause each data value 
to be displayed on the line above each bar and the corresponding label to appear beneath each bar. Lines 480 
and 490 then cause the title of the barchart to be displayed at the bottom, centered horizontally. 

Now suppose that the program is executed using the following set of input data: 


Annual Sales Increases 


Increase (%) Year 
52 1985 
7.8 1986 
82 1987 
6.7 1988 

10.6 1989 


123 1990 
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10 UHHH BAR CHART GENERATOR жении 
zo 

50 KEY OFF: CLS 

40 WIDTH 80: SCREEN O: COLOR.7,0 

50 DIM LABEL$ (12) ,Y (12) 

60 LOCATE 1,20: PRINT STRING$(40,"«") 

70 LOCATE 2,20: PRINT "*";SPC(38); "ж" 

80 LOCATE 3,20: PRINT "*";SPC(G) 5; "BAR CHART GENERATOR"; SPC (10) ; "ж" 
90 LOCATE 4,201 PRINT "*";SPC(38); "ж" 

100 LOCATE 5,20: PRINT STRING$(40,"#") 

110 YMAX=0 


150 ‘###### ENTER DATA AND FIND LARGEST Y see 

140 ' 

150 LOCATE 7,1: INPUT "Title: ",TITLE$ 

160 LOCATE 9,1: INPUT "How many data items? (1-12) ",ANS$: N=VAL(ANS$) 
170 IF N < 1 OR N > 12 THEN ВЕЕР: LOCATE 9,29: PRINT ЗРАСЕЗ (6): GOTO 160 
180 FOR Ізі TO N 

190 LOCATE 1+10: PRINT "I -";I 

200 LOCATE I*10,15: INPUT "Value: ",ANS$: Y(I)=VAL(ANS$) 

210 IF LEFTS$(ANS$,1)-"O" THEN 230 

220 IF Y(I) <= O THEN ВЕЕР: LOCATE I*10,21: PRINT SPACE$(4): GOTO 200 
230 LOCATE I*10,35: INPUT "Label: ",LABEL$(I) 

240 IF Ү(І) > YMAX THEN YMAX-Y(I) 

250 NEXT I 


270 ‘####¥## GENERATE AND DISPLAY THE BAR CHART «xs 


290 CLS: W=60\N 

300 FOR Ізі ТОМ 

510 К-20-18жҮ(1)ХҮМАХ: IF R=20 THEN 370 
320 FOR ROW=R TO 20 


330 FOR COL=(I-1)#W+11 ТО I«W«8 

340 LOCATE ROW,COL: PRINT "«" 
350 NEXT COL 

360 NEXT ROW 

370 NEXT I 

580 ' 

$90 ‘жизнь LABEL THE BAR CHART энинин 
400 ' 


410 FOR 1=1 TO N 

420 R-19-18*Y (І) \YMAX 

430 C=9 + (1-1)+ + (W-LEN(STRS(Y(I))))/2 
440 LOCATE R,C: PRINT Y(I) 

450 С=10 + (I-1)#W + (W-LEN(LABEL$(I)))/2 
460 LOCATE 21,C: PRINT LABEL$(I) 

470 NEXT I 

480 C=10 + (N*W-LEN(TITLE$))/2 

490 LOCATE 23,C: PRINT TITLE$;: LOCATE 23,1 
500 END 


Fig. 12.30 


The dialog generated by the data-input portion of the program is shown in Fig. 12.31. (The user's responses are 
underlined.) Figure 12.32 shows the corresponding barchart. 


Some microcomputers include a special graphics character set in addition to the 128 standard 
ASCII characters shown in Appendix E. For example, the IBM Personal Computer supports 256 
different characters, including 128 special characters. Several of these are graphics characters (as well 
as mathematical symbols and characters used in foreign languages). We have already used one of 
these graphics characters to create blocks of light—in Example 10.12 (see line 50 in Fig. 10.7). The 


2» ай 


>= 
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4F E TT T E AE BE JE E ЗЕ ЗЕ ЗЕ AE E DEAE ЭЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ TE HE 


* * 
* BAR CHART GENERATOR * 
* * 


E E EF E E E E Û E E Û E E E E E ЭЕ ЭЕ ЗЕ ЗЕ ЗЕ ЭЕ ЗЕ HEHE TEE ЗЕ ЭЕ ЗЕ ЗЕ ЗЕ ЭЕ ЗЕ ЗЕ ЗЕ ¥ 
Title: Annual Sales Increases 


How many data items? (1-12) é 


Іші Value: 5.2 Label: 1985 
І-2 Value: 7.8 Label: 1985 
1= 3 Value: 8.2 Label: 1987 
1= 4 Value: 4.7 Label: 1988 
I=5 Value: 10.6 Label: 1989 
1= ё Value: 12.3 Label: 1990 
Fig. 12.31 
12.3 

OEE 

E E E EEF 

10.6 EEE RENE 


жек жены 
жне жены 


8.2 жен жне 
7.8 жне жекен нн 
жене кенен 6.7 HHHH HHHH 


же жиек — ИУ HHHH HHHH 
жекен жекке ЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕ жонын жаманы 
5.2 жене жонын жығы HHHH жын 
жены жемек кон жықты жоны жены 
жекен жек HHHH HHHH кке жин 
жне ы жок кызык жонғы жыны 
жне жене көне  ЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕ жонын жоны 
MX 3 39 9€ d жы ы жеты жанны 
к жак кұтты жок жне ded Hee 
жене жы жыны  ЗЕЗЕЗЕЗЕЗЕЗЕЗЕЗЕ жене жаннын 
dene жентек жымы жок жоғын ЗН 
1985 1986 1987 1988 1989 1990 


Annual Sales Increases 
Fig. 12.32 


use of these graphics characters offers the possibility of a significant improvement in character- 
graphic displays. 


EXAMPLE 12.32 Ап Improved Barchart Generator 


Figure 12.33 contains another Microsoft BASIC program, written for the IBM Personal Computer, for 
generating a barchart as described in Example 12.31. This program is similar to the program presented in Fig. 
12.30. Now, however, we see reference to the special graphics characters available on the IBM Personal 
‘Computer. Notice, for example, that lines 60 through 100 include the function calls CHR$(201), CHR$(205), 
«CHR$(187), CHR$(186), CHR$(200) and CHR$(188) within the various PRINT statements. These function calls 
cause the title “BAR CHART GENERATOR" to be framed within a double rectangle, as shown іп Fig. 12.34. 
Also, line 110 assigns the characters CHR$(177) and CHR$(178) to the variable BARI$ and BARO2S, 
©espectively. These characters are printed in line 350, thus causing the rectangular bars to be composed of 
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10 “жж € BAR CHART GENERATOR 3 43646363646 ече 40-36 6 


30 KEY OFF: CLS 
40 WIDTH 80: SCREEN O: COLOR 7,0 


50 DIM LABEL$(12) ,Y(12) 

&0 LOCATE 1,20: PRINT CHR$ (201) ; STRINGS (38,CHR$ (208) ) ; СНАЯ (187) 

70 LOCATE 2,20: PRINT CHR$(184) ; SPC (38) ; CHR$ (186) 

ВО LOCATE 3,20: PRINT СНА (186); SPC (9) ; "ВАК CHART GENERATOR" ; SPC (10) ; CHR$ (186) 
90 LOCATE 4,20: PRINT СНК (186) ; SPC (38) ; CHR$(185) 

100 LOCATE 5, 20: PRINT СНК (200) ; ЅТКІМ (38,CHR$ (205) ) ; СНК (188) 

110 BAR1$-CHR$ (177): BAR2$-CHR$(178): YMAX-O 


120 “жжжжижж ENTER DATA AND FIND LARGEST Y ###### 


150 LOCATE 7,1: INPUT "Title: ",TITLE$ 

160 LOCATE 9,1: INPUT "How many data items? (1-12) ",ANS$: N=VAL(ANS$) 
170 IF N < 1 OR N > 12 THEN BEEP: LOCATE 9,32: PRINT БРАСЕ$ (6): GOTO 140 
180 FOR I=1 TO N 

190 LOCATE 1+10: PRINT "I -“;І 

200 LOCATE 1410,15: INPUT "Value: ",ANS$: Y(I)*VAL(ANS$) 

210 IF LEFT (ANS, 1)="0" THEN 230 

220 IF Y(1) <= O THEN ВЕЕР: LOCATE 1%10,21: PRINT ЗРАСЕ$ (6): GOTO 200 
230 LOCATE I*10,35: INPUT "Label: " LABELS (I) 

240 IF Y(1) > УМАХ ` THEN УМАХ=У (1) 

250 NEXT I 


270 “жжжжж GENERATE AND DISPLAY THE BAR CHART ww 


290 CLS: W=60\N 

300° FOR 1=1 TO N 

310 R=20-18#Y(I)\YMAX: IF R=20 THEN 380 
320 FOR ROW=R TO 20 


350 FOR COL=(I-1)*W+11 TO 1#W+8 

540 LOCATE ROW,COL 

350 IF I MOD 2 = O THEN PRINT BAR1$' ELSE PRINT ВАК2% 
360 NEXT COL 

370 NEXT ROW 

380 NEXT I 

390 ' 

400 ‘###### LABEL THE BAR CHART ###### 

410 ' 


420 FOR 1=1 TO N 

430 Rz19-18*Y (1) \YMAX 

440 С=9 + (I-1)*W + (W-LEN(STR(Y(1))))/2 
450 LOCATE R,C: PRINT Y(I) 

460 С=10 + (I-1)*W + (W-LEN(LABEL$(I)))/2 
470 LOCATE 21,C: PRINT LABEL$(I) 

480 NEXT I 

490 С=10 + (N*W-LEN(TITLE$))/2 

500 LOCATE 23,C: PRINT TITLE$;: LOCATE 25,1 
510 END 


Fig. 12.33 


partially shaded rectangular blocks rather than asterisks. The effect is shown in Fig. 12.35, Notice that alternate 
bars are shown in different shadings. 

It is interesting to compare Figs. 12.31 and 12.34. The special graphics characters used to generate Fig. 12.34 
clearly improve the appearance of the display. Even more striking, however, is the comparison between Figs. 
12,32 and 12.35. (Figure 12.35 will appear better on a TV monitor since the individual block characters within each 
bar will touch one another, forming a solid rectangle.) Thus, we see that a small amount of additional 
programming effort results in a much better-looking display. 
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Review Questions 


Determine whether or not the version of BASIC available for your particular microcomputer includes 
special graphics statements. If so, are they the same as those described in this chapter? 


What level of resolution is provided by the graphics features on your particular microcomputer? Are 
multiple graphics modes available? 


Is color available on your particular microcomputer? If so, how many different colors are available in the 
text mode? How many are available in the graphics mode? | 


What is а pixel? What are pixels used for? 
What is the purpose of the SCREEN statement? Summarize the rules that apply to its use. 
What is the purpose of the PSET statement? Summarize the rules that apply to its use. 


What is the purpose of the PRESET statement? How does it differ from the PSET statement? 
Summarize the rules that apply to its use. 


How can individual points be generated in your version of BASIC? 
What is the purpose of the LINE statement? Summarize the rules that apply to its use. 
How can individual lines be generated in your version of BASIC? 


Explain how a display consisting entirely of individual points or lines (not shapes) can be animated; i.e., 
how points or lines сап be displayed and later erased, as in the “kinetic art" program. 


How can the LINE statement be used to generate a closed rectangle? How can this rectangle be filled 
with a specified color? 


What is the purpose of the CIRCLE statement? Summarize the rules that apply to its use. 
What is the purpose of the PAINT statement? Summarize the rules that apply to its use. 


How can the CIRCLE and PAINT statements be used to generate circular shapes that are filled with a 
specified color? 


Can closed circles be generated in your version of BASIC? If so, how is this accomplished? 


How can the CIRCLE statement be used to generate arcs rather that entire circles? How can these arcs 
be connected to the origin, thus creating “‘pie-shaped” objects? 


How can the CIRCLE statement be used to generate ellipses? How can the size and orientation (i.e., 
horizontal or vertical) of an ellipse be specified? 


Can closed elliptical shapes be generated in your version of BASIC? If so, how is this accomplished? 
Explain how a text display can be animated in the horizontal direction within a fixed, confined space. 
How can simple shapes be animated in your version of BASIC? 


What is the purpose of the GET statement when used in the graphics mode? Summarize the rules that 
apply to its use. 
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12.23 What is the purpose of the PUT statement when used in the graphics mode? Summarize the rules that 
apply to its use. 


12224 When creating an animation, what is the advantage in using the GET and PUT statements rather than 
simply generating the shape in alternate colors (first foreground, then background)? 


12.25 What is meant by character graphics? How does the quality of character-type graphics compare with 
other types of graphic displays? 


12.26 Does your version of BASIC include special graphics characters? If so, what are they? What are their 
ASCII codes? 


Supplementary Problems 


The following “problems” are concerned with information gathering rather than actual problem 
solving. Answer the questions as they apply to your particular version of microcomputer BASIC. 


12.27 Does your microcomputer include a graphics capability? If so, can graphical displays be created within а 
BASIC program? How many graphics modes are available? What level of resolution is available with 
each mode? 


12.28 Is color available? If so, how many colors can be displayed at any one time within each graphics mode? 
What are these colors? Is there a distinction between foreground and background colors? 


12.29 Determine how each of the following features сап be implemented in BASIC. 


(a) How is each graphics mode accessed? 

(b) How are individual colors specified? 

(c) How are individual points generated? How are they erased? 

(d) How are lines generated? 

(e) Can rectangles be generated with a single statement? If so, can the rectangles be filled with a solid 
color? 

(f) Can circles be generated with a single statement? If so, can the circles be filled with a solid color? 

(g) Can ellipses be generated with a single statement? If so, can the ellipses be filled with a solid color? 

(h) Can circular or elliptical arcs be generated with a single statement? 

(i) Are special statements available for carrying out animations? If so, what are they and how do they 
work? 

(j) Can text be generated within the graphics modes? 

(k) Are there other special graphics features that were not described in this chapter? If so, what are 
they and how do they work? 

(I) Does your microcomputer include special graphics characters? If so, what are they? How are these 
characters accessed in BASIC? 
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Programming Problems 


Modify the following programs so that the palette and the background color сап be changed at any time 
by pressing appropriate function keys (e.g., F1 to change the palette and F2 to change the background 


color). 


(а) Dots т space (Example 12.8) 

(b) Moving lines (kinetic art) (Example 12.11) 
(с) А kaleidoscope (Example 12.16) 

(d) Expanding circles (Example 12.18) 


АНег some of the numerical values included in the kinetic art program given in Example 12.11. 
Experiment with different values until you find a set of values that you like particularly well. 


Modify the program given in Example 12.16 (kaleidoscope) so that the screen is filled with a larger 
number of rectangles. Be sure to reduce the size of the rectangles to compensate for the greater number. 


Modify the program given in Example 12.16 (kaleidoscope) so that the randomly generated coordinates 
are spread uniformly over the entire wedge rather than being clustered near the center of the screen. 


Which effect do you prefer? 


Modify the program given in Example 12.12 (linear regression with graphical display) so that the x and y 
axes are labeled. Include a provision for generating a title near the top of the graph. 


Expand the program given in Example 12.12 so that power functions, exponential equations and 
polynomials can be fitted to a set of input data and then plotted. Use closely spaced points to represent 
curves when plotting the graphs. (Example 7.22 gives the appropriate equations for fitting each type of 
curve, based upon the method of least squares.) Include a menu that will allow the user to select the 
desired type of curve. Be;sure to include appropriate prompts and error checks for both the numerical 
data and the menu selections. 


Modify the piechart generator given in Example 12.24 so that each circular segment is filled with some 
color other than the background color. Make sure that adjacent segments do not have the same color. 


Modify the barchart generator given in Example 12.32 so that one, two or three different data sets can be 
displayed simultaneously, provided all the data sets have the same number of bars. Place the cor- 
responding bars next to one another, with no intervening space (i.e., place the first bar for each data set 
in one cluster, then the second bar for each data set, etc.). Use either a different color or a different 


pattern for each data set. 


Write a single microcomputer BASIC program that will allow a set of data to be entered into the 
computer and will then generate either a piechart or a barchart (see Examples 12.24 and 12.32). Include 
a menu that will allow the user to select the desired type of graph. Be sure to include appropriate 
prompts and error checks for both the numerical data and the menu selections. 


Modify the program given in Example 12.27 (blimp with animated text) so that the user may specify the 
message that moves across the display area. Include a prompt for the desired message at the start of the 
program, before the blimp is drawn. 


Alter some of the numerical values included in the bouncing ball program given in Example 12.29. 
Experiment with different values until you find a set of values that you like particularly well. Compare 
the program’s performance with that obtained using the original values. 
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12.41 


12.42 


12.43 


12.44 


12.45 


12.46 


12.47 


12.48 


12.49 


Modify the paddleball game given in Example 12.30 so that the user may specify the degree of difficulty 
before the game begins. For a more difficult game, make the paddle smaller and make the ball move 
faster. Include a menu, with appropriate prompts and error checks, to assist the user in selecting the 
desired degree of difficulty. 


Extend the program given in Example 10.13 (programming a joystick to generate character graphics) so 
that several different graphics characters can be utilized. Include a menu which allows the user to select 
the graphics characters. Also, allow the user to change the color of the background or the color of each 
new character by pressing an appropriate function key. Include the function key choices in the menu. 
(Suggestion: reserve the rightmost 20 columns of the screen for the menu. Allow the remainder of the 
screen to be used as the graphics area.) 


Solve Problem 12.42 utilizing a mouse rather than a joystick. 


Write a microcomputer BASIC program, similar to the one given in Example 10.13, that will allow a 
joystick or a mouse to generate individual pixels in the graphics mode. Include a provision for changing 
the color of the background or the color of each new pixel by pressing an appropriate function key. 
Provide a small menu at the bottom of the screen explaining the use of the function keys. 


Extend the program described in Problem 12.44 so that lines, rectangles and circles can be drawn in 
addition to individual pixels. Include a provision for filling each solid shape with a color which the user 
can choose from a menu. Also, allow the user to change the color of the background or the color of each 
new object by pressing an appropriate function key. 


Write a microcomputer BASIC program that will generate a full-screen display of your school emblem 
or company logo. Include color if it is available. 


Write a microcomputer BASIC program that will generate a full-screen display of the flag of each of the 
following countries (listed in the order of increasing difficulty). 

(a) Japan 

(b) France 

(c) Denmark 

(d) Norway 

(e) United States 

(f) United Kingdom 

(g) Canada 

(h) Saudi Arabia 


Write a microcomputer BASIC program that will generate an x-axis and a y-axis, thus dividing the 
screen into four equal quadrants. Then display a graph of the equation 


у = ci сәх + сзх? + сах? + C5x* 


using values of your own choice for сі, C2, Сз, Са and cs. (Note that it is possible to plot straight lines, 
quadratics, cubics, etc., by setting certain of these constants equal to zero.) 

Write the program in such a manner that it can be executed repeatedly, with different values for сі, 
сз, Сз, са and cs entered from the keyboard at the beginning of each run. 


Write a microcomputer BASIC prògram that will generate a graphical display of the equation 
у-2е7%5 sin (0.5x + с) 


for values of x varying from 0 to 60, and c=0. Include the x- and y-axes in the graphical display. Label 
the axes. 
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12.50 Extend Problem 12.49 so that the generation of the graphical display occurs within a loop, with a 
different (increasing) value assigned to c during each pass. 


12.51 А variety of interesting graphical displays can be generated by the equations that represent Archimedes’ ] 
spiral; namely, 


x = arcos r 
y=brsinr | 


where a and b are positive constants and r represents an angle, in radians. 
Write a microcomputer BASIC program that will generate a graphical display of Archimedes' spiral. ) 
Let the constants a and 5 be input parameters. Generate a sequence of values for r (and hence a 
sequence of x and y values) by embedding the above formulas within a FOR-TO loop which includes a 
STEP parameter. Enter the value of the STEP parameter from the keyboard, along with the values of a 
and b, at the start of each run. (Note: many different graphical displays can be generated by specifying 
different values for a, b and the STEP parameter.) 


12.52 Extend the craps game given in Example 6.20 to include a graphical display of the dice after every throw. 
(Note that this problem can be solved using either pixel-type graphics or character graphics.) 


12.53 Write a microcomputer BASIC program that will allow a person to play a game of tic-tac-toe against the 
computer. Include a graphical display showing both players' moves with the customary X's and O's (see I 
Problem 6.52(g)). 


12.54 Extend the Roulette program described in Problem 6.52(i) to include a graphical display of the roulette 
wheel (in color, if possible). Show where the marble comes to rest after each spin. 


12.55 Extend the BINGO program described in Problem 6.52(k) to include a graphical display of the master 
BINGO card. (This card will contain all 75 possible letter-number combinations in five columns, labeled 
В, 1, N, G, O, respectively. The first column will contain the numbers 1-15, the second column will contain 
16-30, etc.) Use character graphics to generate the display. Identify each letter-number combination as it is 
drawn (e.g., shade in the location on the card, or change the color). 


ВЛИЛИСЬ 


UR НАНА 
Fig. 12.36 


ШИЛ, 
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12.56 One of the earliest of the popular video games is a game called brickout. This game is similar to the 
paddleball game described in Example 12.30 except that there is a “brick wall" located near the right 
side of the playing area, as illustrated in Fig. 12.36. 

1 the ball hits a brick, the ball bounces as it normally would but the brick disappears and the player 
receives one point. If the ball passes through a channel created by missing bricks, then the ball can continue 
to bounce within the right portion of the playing area, hitting and removing bricks, until it again passes 
through a channel to the left portion of the playing area. The play continues until all the bricks are gone or 
until the player misses the ball with the paddle. The player is allowed five balls during each game. 

Write a microcomputer BASIC program to play successive games of brickout. Make each successive 
game more difficult by making the paddle smaller and making the ball move more rapidly, Begin a new 
score for each game, but maintain a record of the highest score. 
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Summary of Standard BASIC 


Statement 
CHANGE 
DATA 
DEF 

DIM 

END 
FNEND 
FOR-TO 
GO TO 
GOSUB 
IF-THEN 
INPUT 
LET 
NEXT 
ON-GO TO 
PRINT 
RANDOMIZE 
READ 
REM 
RESTORE 
RETURN 
STOP 


МАТ = 
МАТ + 
МАТ - 
МАТ (К)* 
МАТ * 
МАТ СОМ 
МАТ IDN 
МАТ МРОТ 
МАТ INV 
МАТ PRINT 
МАТ READ 
МАТ ТЕМ 
МАТ ZER 


FILE 
FILES 


Statements 


Example 
10 CHANGE N$ TO N 
10 DATA 12,5ЕУЕМТЕЕМ,-5 


10 DEF FNR(A,B,C)=SQR(At2+ B12+C12) 


10 DIM A(10,20),X(20),F$(60) 

10 END 

10 FNEND 

10 FOR J=1 TO 99 STEP 2 

10 GO TO 50 

10 GOSUB 300 

10 IF 1>=100 THEN 80 

10 INPUT A,B,C,M$,N$ 

10 LET A-3.141593*R12 

10 МЕХТ 1 

10 ОМК СО ТО 15,40,25,40,60 
10 PRINT “X=";X,“Y=":Y 

10 RANDOMIZE 

10 READ K,N$,Z(1) 

10 REM AREA OF A CIRCLE 
10 RESTORE 

10 RETURN 

10 STOP 


10 MAT C=A 

10 MAT C=A+B 
10 MAT C=A-B 
10 МАТ С-(10жА 
10 МАТ С=А*В 
10 МАТ В-СОМ 
10 МАТ C=IDN 

10 МАТ ІМРОТ А 
10 МАТ B=INV(A) 
10 MAT PRINT A 
10 MAT READ A 
10 MAT B=TRN(A) 
10 MAT A=ZER 


10 FILE :1,F$ 
10 FILES SCORES 
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Reference 
Section 6.4 
Section 5.5 
Section 6.1 
Section 5.4 
Section 2.11 
Section 6.3 
Section 4.5 
Section 2.14 
Section 6.9 
Section 4.2 
Section 2.9 
Section 2.8 
Section 4.6 
Section 4.3 
Section 2.10 
Section 6.7 
Section 5.5 
Section 2.13 
Section 5.6 
Section 6.8 
Section 4.4 


Section 7.1 
Section 7.1 
Section 7.1 
Section 7.1 
Section 7.1 
Section 7.3 
Section 7.3 
Section 7.2 
Section 7.3 
Section 7.2 
Section 7.2 
Section 7.3 
Section 7.3 


Section 8.3 
Section 8.1 


APPENDIX А 
Statement Example 
IF END-THEN 10 IF END #1, THEN 130 
INPUT 10 INPUT #1,N,T$,Y$ 
PRINT 10 PRINT #2,N;N$ 
QUOTE 10 QUOTE #2 
READ 10 READ :1,L 
SCRATCH 10 SCRATCH #2 
SET (RESET) 10 SET :1,L 
WRITE 10 WRITE :1,N 
Arithmetic Operators: + - ж / 1 
Relational Operators: = <> <= < >= 


Note: Î appears as ^ оп some terminals. 


Reference 
Section 8.1 
Section 8.1 
Section 8.1 
Section 8.1 
Section 8.2 
Section 8.1 
Section 8.2 
Section 8.2 


353 


Appendix B 


Summary of Standard BASIC 
Library Functions 


Function Example Reference 
ABS 10 LET Y=ABS(X) Section 5.1 
ATN 10 LET Y=ATN(X) Section 5.1 
ASC 10 LET N=ASC(T) Section 6.5 
CHR$ 10 LET N$- CHR$(N) Section 6.5 
COS 10 LET Y=COS(X) Section 5.1 
сот 10 LET Ү-СОТ(Х) Section 5.1 
DET 10 LET X=DET Section 7.3 
EXP 10 LET Y=EXP(X) Section 5.1 
INT 10 LET Y=INT(X) Section 5.1 
LOC 10 LET N-LOC(1) Section 8.2 
LOF 10 LET N1-LOF(3) Section 8.2 
LOG 10 LET Y-LOG(X) Section 5.1 
NUM 10 LET М(0)-МОМ Section 7.2 
RND 10 LET X- RND Section 6.6 
SGN 10 LET Y-SGN(X) Section 5.1 
SIN 10 LET Y-SIN(X) Section 5.1 
SQR 10 LET Y-SOR(X) Section 5.1 
TAB 10 PRINT ТАВ(№);Х Section 5.1 
TAN 10 LET Y- TAN(X) Section 5.1 
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Appendix C 


Summary of Standard BASIC 
System Commands 


Command Purpose 

BYE Terminates timesharing session. 

CATALOG Lists names of all files being saved. 

GOODBYE Same as BYE. 

LIST Produces a listing of the current file. 

NEW Specifies that a new file will be created. 

OLD Accesses an existing file. 

RENAME Allows the name of the current file to be changed. 

REPLACE Causes the current file to be saved (stored) in place of the file 
previously stored with the same name. (The old file will be deleted.) 

RUN Causes the current program to be compiled and executed. 

SAVE Causes the current file to be saved (stored). 

SCRATCH Removes the current file from the computer’s memory. 

SYSTEM Transfers control from BASIC to the system monitor. 

UNSAVE Cancels permanent storage of a file. 
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Appendix D 


Summary of Microsoft BASIC 


Statements 


Statement 
BEEP 
BLOAD 
BSAVE 
CALL 


CHAIN 
CIRCLE 
CLOSE 
CLS 
COLOR 


COMMON 


DATA 


DATE$ 
DEF FN... 
DEF (type) 


DEF USR 


DIM 
END 
ERASE 


ERROR 
FIELD 


FOR and NEXT 


GET (text mode) 


Purpose 

Beeps the speaker 

Loads a binary memory image 
Saves a binary memory image 
Calls a machine language 
subroutine 

Passes control to another 
program 

Generates circles, arcs and 
ellipses (graphics mode) 
Closes a file for 
input/output operations 
Clears the screen and 
“homes” the cursor 

Sets colors or other 

screen attributes 

Defines a common storage 
area, for passing variables 
to a chained program 
Provides values for variables 
listed in READ statement 
Sets the date 

Defines a function 

Defines variable types 
(types can be INT, SNG, 
DBL or STR) 

Defines starting address 
for machine language 
subroutine 

Defines (dimension) arrays 
End of program 

Erases (eliminates) 
individual arrays 
Simulates the occurrence 
of an error 

Defines field length 
(random files) 

Define the start and end 
of a FOR-TO loop 


Reads a record from a 
random file to a 


memory buffer 
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Example 
10 BEEP 
10 BLOAD “SAMPLE” 


10 BSAVE “SAMPLE”,0,&H8000 


10 CALL START 

10 CHAIN “PROGRAM2” 
10 CIRCLE (160,100),30,2 
10 CLOSE #1 

10 CLS 

10 COLOR 7,0,0 

10 COMMON A,B,C,T$ 


10 READ A,B,C,T$ 
20 DATA 2.3,-0.1,6 RED 


10 DATE$- “12/29/82” 
10 DEF ЕМА(Х)-АжХ?2%В 
10 DEFINT I-N,X 


20 DEFSTR P 
10 DEF USR- 8000 


10 DIM X(100),Z$(20,100) 
99 END 
10 ERASE Z$ 


10 X=13 
20 ERROR X 
10 FIELD 1,20 AS CUST$ 


60 NEXT COUNT 
Ë OPEN “R”,#1,“DATA” 


[e FOR СООМТ = 1 TO 100 


20 FIELD 1,20 AS CUST$ 
30 GET 1 


Statement 
GET (graphics mode) 


GOSUB 
GOTO 
IF-THEN 


IF-THEN-ELSE 
INPUT 


INPUT # 
KEY OFF 
KEY ON 


KILL 
LET 


LINE 


LINE INPUT 


LINE INPUT # 
LOCATE 

LPRINT 

LPRINT USING 
LSET 

NAME 

ON ERROR GOTO 
ON-GOSUB 
ON-GOTO 

ON KEY() GOSUB 
ON PEN GOSUB 
ON STRIG() GOSUB 


OPEN 


APPENDIX D 


Purpose 

Stores portion of graphics 
Screen display. in an array 
Transfers control to a 
subroutine 


Transfers control to а 
remote statement 


Conditional execution 
Conditional execution 
Enters data from the keyboard 


Enters data from a sequential 
file or device 

Turns off function key 
display 

Turns on function key 
display 

Deletes an entire file 
Assignment statement 
(optional) 

Generates lines and 
rectangles (graphics mode) 


Reads an entire line from 
the keyboard, as a string 


Reads an entire line from a 
sequential file as a string 


Specifies the current cursor 
position (row and column) 


Prints data on the printer 


Prints formatted data on the 
printer 

Places data into a random 
file buffer, left-justified 


Renames а file 

Transfers control if an 
error occurs 

Transfers control to 

one of several subroutines 
Transfers control to one 

of several destinations 
Associates a function key 
with a subroutine 
Associates light pen 
activation with a subroutine 
Associates a joystick button 
with a subroutine 

Opens a file for 
input/output operations 
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Example 
10 GET (10,10)—(80,50),SHAPE 


10 GOSUB 200 
10 GOTO 200 


10 IF Х>0 THEN 200 


10 IF Х>0 THEN 200 ELSE Х-0 


10 INPUT A,B,C,T$ 

20 INPUT "X-",X 

10 OPEN “I",#1,“NAMES” 
20 INPUT #1,N$ 

10 KEY OFF 


10 KEY ON 


10 KILL “SAMPLE” 
10 LET X=A+B+C 


10 LINE (0,0)-(319,199) 
20 LINE (10,5)-(50,80),2,ВЕ 
10 ІЛМЕ INPUT T$ 


20 ІЛМЕ ІМРОТ;“Апв:”; А% 


o OPEN "T",71,*NAMES" 


| 


20 LINE INPUT #1,N$ 
10 LOCATE 12,40 


10 LPRINT A,B,C,T$ 
20 LPRINT “Х=”;Х 
10 LPRINT USING “#.##”;Х 


10 OPEN “R”,#1,“DATA” 
20 FIELD 1,20 AS CUST$ 
30 LSET CUST$=NAME$ 
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10 NAME “SAMPLE” AS “DATA” 


10 ON ERROR GOTO 500 


10 ON FLAG GOSUB 100,200,300 


10 ON K GOTO 80,120,160 
10 ON KEY(3) GOSUB 200 
(refers to function key F3) 

10 ON PEN GOSUB 300 

10 ON STRIG(0) GOSUB 400 


10 OPEN “Г’,#1,“МАМЕ$” 
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Statement 
OUT 


PAINT 
PEN OFF 
PEN ON 


POKE 


PRESET 

PRINT 

PRINT # 
PRINT USING 
PRINT # USING 
PSET 

PUT (text mode) 
PUT (graphics mode) 
RANDOMIZE 
READ 

REM 

RESTORE 


RESUME 


RETURN 


RSET 


SCREEN 


SOUND 


APPENDIX D 


Purpose 

Sends a byte to an output 
port 

Fills an enclosed graphics 
shape with color 

Turns off light pen read 
function 

Turns on light pen read 
function 


Places a value in a 
specified memory location 


Erases a point 
(graphics mode) 
Displays data on the screen 


Writes data to а sequential 
file 

Displays formatted data 
on the screen 

Writes formatted data to a 
sequential file 


Generates a point 
(graphics mode) 


Writes a record from a memory 


buffer to a random file 
Displays graphics image 
stored in an array 

Initializes the random 
number generator 

Assigns values in DATA 
statement to listed 

variables 

Places remarks in the program 
Initializes the pointer in a 
DATA statement 

Continues program execution 
after error correction 

routine 

Used at end of subroutine; 
returns control to statement 
following GOSUB 


Places data into a random 
file buffer, right-justified 


Specifies current mode 
(text or graphics) 
Generates a sound with a 
fixed frequency and 
duration 


Example 
10 OUT 127,3 

. (127 is the port no.) 

pa CIRCLE (160,100),10,2 
20 PAINT (160,100),2,2 
10 PEN OFF 


10 PEN ON 


10 POKE(32155,65) 
(memory location is 
32155, value is 65) 

10 PRESET (25,40) 


10 PRINT A,B,C,T$ 
20 PRINT “X=";X 
10 PRINT #1,A;B;C;T$ 


10 PRINT USING “Ж ЯҒЦХ 


10 PRINT #1, USING "s" X 


10 Р5ЕТ(25,40),1 

10 PUT#1,22 

(22 is the record no.) 

10 PUT (120,80,SHAPE 
10 RANDOMIZE 


10 READ A,B,C,T$ 
20 DATA 2.3,-0.1,6,RED 


10 КЕМ *** PROGRAM 1 +++ 


10 RESTORE 20 
20 DATA 2.3,-0.1,65,RED 
10 RESUME 100 


10 GOSUB 80 


80 REM BEGIN SUBROUTINE 


100 RETURN 
Ë OPEN “R”,#1,“DATA” 
20 FIELD 1,20 AS CUST$ 
30 RSET CUST$=NAME$ 
10 SCREEN 0 


10 SOUND 800,100 
(800= frequency, 
100=duration) 


Statement 
STOP 
STRIG OFF 
STRIG ON 
SWAP 


TIME$ 
WAIT 


WHILE and WEND 


Library Functions 


Function 
ABS 
ASC 
ATN 
CDBL 
CHR$ 


CINT 
COS 


CSNG 
CSRLIN 


CVD 
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Purpose 

Terminates program execution 
Deactivates joystick buttons 
Activates joystick buttons 
Exchanges the values of 
two different variables 

Sets the current time 
Suspends program execution 
until a specified bit 

pattern is detected in an 
input port 

Define the start and end of 
a conditional loop 


Specifies the number of 
characters per line 
Displays data on the screen 
(similar to PRINT) 

Writes data to a sequential 
file (similar to PRINT #) 


Purpose 

Returns absolute value 
Returns ASCII code 
Returns arctangent 

Converts to double precision 
Returns character represented 
by given ASCII code 
Converts to an integer 
Returns the trigonometric 
cosine function 

Converts to single precision 
Returns the vertical cursor 
position (line number) 
Converts string to double 
precision value 

Converts string to integer 
value 

Converts string to real value 
Returns the date 

Indicates an end-of-file 


Returns the line number 
where an error occurred 
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Example 

10 STOP 

10 STRIG OFF 
10 STRIG ON 

10 SWAP X,Y 


10 TIME$= “13:07:42” 
10 WAIT 16,6 
(input port- 16) 


10 COUNT-1 

20 WHILE COUNT « 10 

30 PRINT *COUNT-";COUNT 
40 COUNT-COUNT-*1 

50 WEND 


10 WIDTH 80 
10 WRITE A,B,C,T$ 


10 WRITE #1,A,B,C,T$ 


Example 

10 Y=ABS(X) 

10 Y- ASC(X$) 
10 Y- ATN(X) 

10 Y#=CDBL(X) 
10 Y$- CHR$(X) 


10 Y%=CINT(X) 
10 Y-COS(X) 


10 Y=CSNG(X#) 
10 Y=CSRLIN 


10 Y*- CVD(X$) 
10 Y%=CVI(X$) 
10 Y-CVS(X$) 


10 Y$- DATE$ 
10 IF EOF(1) THEN 100 


(see next example) 


INKEY$ 


INSTR 
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Purpose 

Returns an error code 
Returns the exponential 
function 

Converts to an integer 
(truncates) 

Returns the number of 
unused bytes of memory 
Converts from decimal to 
hexadecimal 

Returns a character from 
the keyboard 

Returns a byte from an 
input port 

Returns a multicharacter 
string from the keyboard 
Returns the position where 
one string (X$) is found 
within another string (T$) 
Returns the largest integer 
that does not exceed the 
specified value 

Returns the leftmost n 
characters of a string 
Returns the number of 
characters in a string 
Returns the current record 
number 

Returns the file length, 

in bytes 

Returns the natural logarithm 
Returns the column number of 
the current print-head 
position (for a printer) 
Returns an n-character 
string, starting at 

location m 

Converts a double-precision 
value to a string 

Converts an integer value to 
a string 

Converts a real value to a 
string 

Converts from decimal to 
octal 

Returns information 
associated with a light pen 
Returns the contents of a 
specified memory location 
Returns the color of a 
point оп the screen 
Returns the column number of 
the current cursor position 


Example 
10 PRINT ERR, ERL 
10 Y=EXP(X) 


10 Ү%-ҒІХ(Х) 
10 Ү-ЕКЕ(0) 

10 Y$=HEX$(X) 
10 Y$=INKEY$ 
10 Y=INP(127) 

10 Y$- INPUT$(3) 


10 Y=INSTR(T$,X$) 


10 Y%=INT(X) 


10 Y$- LEFTS(X$, 3) 
10 Y-LEN(X$) 

10 Y-LOC(1) 

10 Y-LOF(1) 

10 Y=LOG(X) 


10 IF LPOS>40 THEN PRINT “+” 


10 Y$- MID$(X$,5,3) 
(m=5, n=3) 


10 Y$=MKD$(X#) 

10 Y$=MKI$(X%) 

10 Y$=MKS$(X) 

10 Y$=OCT$(X) 

10 X=PEN(1):Y=PEN(2) 
10 У=РЕЕК(32155) 

10 Y=POINT(3,12) 


10 Y=POS(0) 


Function 


RIGHT$ 
RND 


SCREEN 


SGN 

SIN 
SPACE$ 
SPC 


SQR 


STRING$ 
TAB 
TAN 


TIME$ 
USR 


VAL 


VARPTR 


System Commands 


Command 
AUTO 
CLEAR 


CONT 


DELETE 
EDIT 
FILES 
KILL 
LIST 


APPENDIX D 


Purpose 

Returns the rightmost n 
characters of à string 
Returns a random number 
between 0 and 1 

Returns ASCII code for 

the character at the 
designated location 

Returns an integer that 
indicates the sign of a value 
Returns the trigonometric 
sine function 

Returns a sequence of 
blank spaces 

Generates blank spaces in 

a PRINT statement 

Returns the square root 

of a value 

Returns joystick coordinates 
Returns information 
associated with joystick 
buttons 

Converts a numerical value 
to a string 

Returns an n-character string 
of repeated characters 

Tabs to a specified position 
in a print statement 
Returns the trigonometric 
tangent 

Returns the current time 
Accesses a machine-language 
subrontine 

Converts a string to a 
numerical value 

Returns the memory address 
of a variable 


Purpose 
Automatic line numbering 


Clears values assigned to 
numeric and string variables 


Resumes program execution 
after a break 


Deletes program lines 
Accesses a line for editing 
Displays names of all files 
Deletes an entire file 
Lists the program, or 


parts of the program, 
on the screen 
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Example 
10 Y$=RIGHTS$(X$, 3) 


10 Y=RND 


10 Y=SCREEN(5,12) 


10 Y=SGN(X) 
10 Y=SIN(X) 

10 PRINT X;SPACE$(5); Y 
10 PRINT X;SPC(5);Y 

10 Y-SOR(X) 

10 X-STICK(0):Y- STICK(1) 
10 Y-STRIG(0) 

10 Y$-STR$(1000) 

10 Y$-STRING$(8,42) 

(n8, ASCII сһаг-42) 

10 PRINT X;TAB(18); Y 

10 Y=TAN(X) 


10 Y$- TIMES 
10 Y=USR(X) 


10 Y- VAL(X$) 


10 Y- VARPTR(X) 


Example Г 
AUTO 100,10 
CLEAR 


CONT 


DELETE 180-230 
EDIT 100 

FILES 

KILL “SAMPLE” 
LIST 
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Command 
LLIST 


LOAD 
MERGE 


NAME 
NEW 


RENUM 
RESET 


RUN 
SAVE 


SYSTEM 


TRACE ON (TRON) 


TRACE OFF (TROFF) 
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Purpose 

Lists the program, or 

parts of the program, 

on a printer 

Loads a program into memory 
Merges a program file into 
the program now in memory 
Renames a file 

Deletes the program 
currently in memory 
Renumbers program lines 
automatically 

Closes all files and clears 
the .nemory buffer 

Initiates program execution 
Saves the program currently 
in memory 

Exits from BASIC to the 
operating system 

Activates tracing of program 
statements during program 
execution 

Discontinues tracing of 
program statements during 
program execution 


Operators (listed hierarchically) 
Operation Operator 
1. Exponentiation Тог” 
2. Negation = 
3. Multiplication and division ` Y: 
4. Integer division 55% 
5. Integer remainder MOD 
6. Addition and subtraction Pi 
7. Relationals = <> <= < >= > 
Other Punctuation 
Colon (:) Used to separate statements on the same line. 


Example: 10 CLS : KEY OFF 


Apostrophe (') Used to designate comments on a statement line. 
Example: 10 CLS 


NOTES: 


‘clear the screen 


1. Many specific implementations include additional commands. 
2. Some statements can also be used as system commands (e.g., CLS). 
3. Some statements or functions may have different interpretations or multiple interpretations (e.g., GET, PUT). 


Example 
LLIST 
LLIST 100-160 


LOAD "SAMPLE" 
MERGE “TRIAL” 


NAME “SAMPLE” AS “NEWPROG” 
NEW 


RENUM 
RESET 


RUN 
SAVE “SAMPLE” 


SYSTEM 

TRACE ON 

TRON 

TRACE OFF 

TROFF 
Operation Operator 
8. Logical NOT NOT 
9. Logical AND AND 
10. Logical OR OR 
11, Logical XOR (exclusive OR) XOR 
12. Logical EQV (equivalence) EQV 
13. Logical IMP (implication) IMP 


Appendix E 
The ASCII Character Set 


ASCII ASCII ASCII -ASCII 
Value Character Value Character Value Character Value Character 


096 
097 
098 
099 
100 
101 
102 
103 
104 
105 i 
106 j 
107 k 
108 1 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 


031 US 127 


Note: Тһе first 32 characters and е last сһагасіег аге control characters; they cannot be printed. 
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Answers to Selected 
Supplementary Problems 


128 (a) Calculate the area of a triangle whose base and height are-given. 

(b) Calculate the circumference of a rectangle whose length and width are given. 

(c) Evaluate 
w=uto 
x=u-v 
у= ир 
z = ир 

where u and b are specified. 
(d) Evaluate 


x2 3 
=l+x+—+— 
4 2 6 


where x is specified. 


1.29 (a) 10 INPUT R 

20 LET С=2*3.141593*В. 
30 PRINT R,C 
40 END 
Statement number 20 can also be written as 
20 LET C=6.283186*R 

(b) 10 INPUT B,H 
20 LET L=(B12+L12)t.5 
30 PRINT B,H,L 
40 END 

(c) 10 INPUT U,V 
20 LET W=(U-V)/(U+V) 
30 PRINT U,V,W 
40 END 

(d) 10 INPUT X 
20 LET Y= 100*(1+Х+2*Х12+3*Х13) 
30 PRINT X,Y 
40 END 


130 The following errors are present. 


1. The second line contains two statements. (Only one statement is allowed per line.) 
2. The third line does not contain the keyword LET. (This is permitted in some versions of BASIC.) 


3. The numbers of the successive Program statements do not increase. (The fourth line should have a 
statement number that is greater than 35 but less than 40.) 
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2.43 


2.44 


2.45 


2.46 


2.47 


(a) 
(b) 
(с) 
(а) 


(а) 
(b) 
(с) 
(4) 
(е) 
0) 
(g) 
(h) 
@) 
(j) 
(k) 
(0 


(а) 
(b) 
(c) 
(a) 
(e) 
0») 


(a) 
(b) 
(c) 
(a) 
(e) 
(f) 
(6) 
(һ) 
(і) 
(j) 
(k) 
(1) 
(т) 
(п) 


(а) 
(b) 
(с) 
(а) 


ANSWERS ТО SELECTED SUPPLEMENTARY PROBLEMS 


5 (е) -7328500 or —7.3285Е+6 
8000 or 8E+3 (f) 2851 ог 0.2851Е+4 
—1.8033E-9 (g) 0.2851Е+10 or 2851E+6, etc. 
0.33333333 (h) -16752.47 or —1.675247E+4 
Correct. 

Correct. 

Correct. 


Exponent cannot contain a decimal point. 

Correct. 

Commas not allowed. 

Exponent is too large in magnitude. 

Correct. 

Too many significant figures. 

Correct. 

Letter E must be followed by a numerical exponent. 
Exponent is written incorrectly (should read Е-2). 


Correct. 

Correct. 

Too long for some versions of BASIC. 
Correct. 

Quotation marks are not allowed. 


Correct. 


Numeric (correct). 

Numeric (correct). 

String (correct). 

The dollar sign cannot be followed by an integer. 
The first character must be a letter. 


Some versions of BASIC do not allow an integer to be included in a string variable 


Too many characters. 

Too many integers. 

Too many letters. 

String (correct). 

The first character must be a letter. 

Second character, if present, must be an integer or a dollar sign. 
Numeric (correct). 

Numeric (correct). 


TI(N+1) 

(X+3)t (1/К) 

2#(A/B)t 33333333 or 2«(A/B)t (1/3) 
1.87«(U-- V)—5.088*(X/Y+2*Z12) 
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2.48 


2.49 


2.50 


2.51 


2.52 


2.53 


2.54 


2.55 


(e) 
(f) 
(8) 
(h) 


ANSWERS TO SELECTED SUPPLEMENTARY PROBLEMS 


1+X+X12/2-X13/6+X14/24-X15/120 
(2*(P/Q)t(K-1))/((R-3*T)t (1/M)) 

(1+3 1)12/5 or 0.2*(I+J—1)t2 

((K1+X2)t M*(Y1+ Y2) N)/((X1/Y1)1 (M--N)«(X2/Y2)1 (M-N)))1(1/(M#N)) 


Each variable that appears on the right side of the equal sign in a LET statement must previously have 
been assigned an appropriate numerical or string value. 


(a) 
(b) 
(с) 
(a) 


(b) 


“> 


(с 


(a) 


(a) 
(5) 
(c) 
(d 
(e) 


= 


10 LET P=758.33 

20 LET B=A 

30 LET F$=“PITTSBURGH, PA.” 
40 LET N$=M$ 

50 LET Y3=X/(A+B-C) 

60 LET K=K-2 

70 LET C5=2*C5 

80 LET B=C=(A12+B12)t.5 


10 LET W=((A+3)*B1N)/(2.7*(C—D/B)+1) 

20 LET F=(((A/B)t N(C-D)t M(D/(B- А)? (N--M)))t (1/(N--M)) 

30 LET У—(А1-А2*Х+АЗ+Х12-А4*Х13+А5*Х14)/(С1-С2*Х+С3*Х12-С4*Х13) 
40 LET P=R*A*(1+R)1N/((1+R)tN-1) 


10 LET W1=(A+3)*BtN 
15 LET W2=2.7*(C—D/B)+1 

20 LET W-WI/W2 

50 LET F1-(A/B)t N/(C-D)1M 

55 LET F2- D/(B- A) (N+M) 

60 LET Е-(Ғ1/Е2)! (1/(Ч%-М)) 

100 LET Y1- A1-A2«X- A3«X12- A4«X13- AS«X14 
105 LET Y2-C1-C2*X-C3*X12-C4*X13 

110 LET Y- Y1/Y2 

200 LET Q-(I-R)TN 

205 LET P- R*A*Q/(Q-1) 


f-a*2b|Vc 
#=а+у2Ыс 
f= (a + 2)V blc 
f= Ма +2)Ыс 
8 = (pq/r)(s/1) 


If (Y — Z) represents а negative quantity, then difficulty will be encountered since a negative quantity 
cannot be raised to a fractional power in BASIC. 


Р=-(214)=-16 


P-(-2)14-16 


2.56 


2.57 


2.58 


(a) 
(5) 


(с) 


(d) 
(e) 


0) 
(g) 
(h) 
(i) 


G) 


(k) 


(a) 


(b) 


(c) 


(a) 


(a) 
(b) 


(c) 
(a) 
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10 INPUT A,B,C,M$,N$ 


10 INPUT A,N$,B 
15 INPUT M$,C 


10 INPUT A 
12 INPUT B 
14 INPUT C 
16 INPUT M$ 
18 INPUT N$ 


10 PRINT “ENTER VALUES FOR A,B,C,M$ AND N$”; 
20 INPUT A,B,C,M$,N$ 


10 PRINT “ENTER VALUES FOR A,B,C,M$, AND N$” 
20 INPUT A,B,C,M$,N$ 


100 PRINT A,B,C,M$,N$ 

100 PRINT A;B;C;M$;N$ 

120 PRINT A;B;C; 

200 PRINT A;B;C;(A+B+C)/3;(A*B*C)t (1/3);(At2+Bt2+Ct2)t.5 


210 PRINT 


220 PRINT M$,,,,N$ 
300 PRINT “A=";A,“B=";B,“C=";C 


or 


300 PRINT “A=";A;“B=";B;“C=";C 
500 PRINT „“МАМЕ: ";M$ 


510 PRINT 


520 PRINT „“SOCIAL SECURITY NUMBER: ";N$ 


76.28-6,27.5Е-12,-1000 


?SHARON,GAIL 


The first line of data can also be typed as 
2.0000062,.275Е- 10,- 1000 
2—743.08,.00987, SUSAN 


or 


2—.74308E--3,.987E-2,SUSAN 
2“МЕУУ ҮОЕК”,“СНІСАСО”,“5АМ FRANCISCO” 


(The quotation mark: 


s are required around NEW YORK and SAN FRANCISCO because of the 


inclusion of a blank space. In the case of CHICAGO, the quotation marks are optional.) 
22770543,*DECEMBER 29, 1963",48.8E*9,"ELEVEN O' CLOCK" 


(The strings must be enclosed in quotation mark: 


s because of the blank spaces and the comma.) 


6.20000E-6 2.75000Е-11 -1000 2770545 -743.08 %.87000Е-2 


4.88000E*10 


6. 20000E-4 
9.87000Е-5 


6.17250Е-6 
SHARON 


2.75000E-11 -1000 2770543 -743.08 
4.88000E*10 

5.67734E-5 -75286.7 

DECEMBER 29, 1963 ELEVEN O'CLOCK. 


2.61 


2.62 


2.63 


(a) 
(6) 
(c) 
(a) 


(a) 
(b) 
(с) 
(а) 
(e) 
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10 REM AVERAGING OF AIR POLLUTION DATA 

250 REM BEGIN LOOP TO CALCULATE CUMULATIVE SUM 
80 LET A=S/N 'CALCULATE AVERAGE VALUE 

20 INPUT X,T 'READ A DATA POINT 


Correct. 

The statement number to which control is transferred must be a positive integer, not a formula. 
A GO TO statement cannot transfer control to itself. 

Correct. 

The quotation marks cannot appear. 


Тре flowchart is shown in Fig. P-2.61. 


(a) 


(b) 


(a) 


(b) 


10 REM HELLO! 
20 PRINT, , "HELLO!" 
30 END 


10 REM WELCOME! 
20 PRINT "HI, WHAT'S YOUR NAME"; 
30 INPUT N$ 

40. PRINT 

50 PRINT 

60 PRINT "WELCOME "; N$; “!” 

70 PRINT "LET'S BE FRIENDS!" 

80 END 


10 REM TEMPERATURE CONVERSION PROBLEM 

20 PRINT “TEMPERATURE IN DEGREES FAHRENHEIT- "; 
30 INPUT F 

40 LET С=5*(Е-32)/9 

50 PRINT “DEGREES F=";F,“ DEGREES C-";C 

60 END 


10 REM PIGGY-BANK PROBLEM 

20 PRINT "NUMBER OF HALF-DOLLARS- "; 
30 INPUT МІ 

40 PRINT “NUMBER OF QUARTERS- "; 

50 INPUT N2 

60 PRINT “NUMBER OF DIMES="; 

70 INPUT N3 

80 PRINT "NUMBER OF NICKELS="; 

90 INPUT N4 

100 PRINT “NUMBER OF РЕММЕ$ =”; 

110 INPUT N5 

120 LET S=.5*N1+.25*N2+.1*N3+.05*N4+.01*N5 
130 PRINT “TOTAL AMOUNT OF MONEY -";S;* DOLLARS” 
140 END 


Note that the END statement can be replaced with an appropriate GO TO statement in each of the 


above problems. This will. allow each program to process multiple sets of data in succession. 
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Presented below is a complete BASIC program for each problem. It should be understood, however, 
that the actual programming should not begin until a detailed outline or flowchart has been prepared. 
Each program is written in such a manner that multiple sets of data can be processed sequentially. 


(a) 10 REM VOLUME AND AREA OF А SPHERE 
20 LET P=3.1415927 
30 PRINT “КАрІ05-”; 
40 INPUT R 
50 LET V-4«P*R13/3 
60 LET A-4«P«RI2 
70 PRINT "R-";R,"V-';V,"A-";A 
80 PRINT 
90 GO TO 30 
100 END 


(b) 10 REM COMPUTATION OF MASS OF AIR IN A TIRE 
20 PRINT “P=”; 
30 INPUT P 
40 PRINT “У=”; 
50 INPUT V 
60 PRINT “T=”; 
70 INPUT T 
80 LET M=P*V/(.37*(T+460)) 
90 PRINT “М-”М 
100 PRINT 
110 GO TO 20 
120 END 
(c) 10 REM GEOMETRIC PROPERTIES OF A TRIANGLE 
20 PRINT “A=”; 
30 INPUT A 
40 PRINT “B=”; 
50 INPUT B 
60 PRINT “C=”; 
70 INPUT C 
80 LET $=(А+В+С)/2 
90 LET A0- (S*(S- A)«S-B)«(S-O))t.5 
100 LET R1=A0/S 
110 LET A1-3.14159*R112 
120 LET R2- AsB*C/(4*A0) 
130 LET A2-3.14159*R212 
140 PRINT "AREA OF TRIANGLE=";A0 
150 PRINT “AREA OF LARGEST INSCRIBED CIRCLE=";A1 
160 PRINT “AREA OF SMALLEST CIRCUMSCRIBED CIRCLE=";A2 
170 PRINT 
180 GO TO 20 
190 END 
(d) 10 REM COMPOUND INTEREST PROBLEM 
20 PRINT “P=”; 
30 INPUT P 
40 PRINT “I=”; 
50 INPUT I 
60 PRINT “N=”; 
70 INPUT N 
80 LET F-P«(1-DfN 
90 PRINT “F=”; F 
100 PRINT 
110 GO TO 20 
120 END 
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4.34 


(e) 


(a) 
(2) 
(с) 
(4) 
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If the interest is compounded quarterly rather than annually, statement number 80 must be 
changed to read 
80 LET A=P#(1+1/4)t (4«N) 
10 REM GROWTH OF A BACTERIA POPULATION 
20 PRINT “T=”; 
30 INPUT T 
40 LET С=.0289+Т 
50 LET Е=1+С+С12/2+С13/6+С14/24+С15/120+С16/720+С17/5040+С18/40320 
60 ГЕТ Е=Е+С19/362880 
70 PRINT “Р/Р0-”;Е 
80 PRINT 
90 СО ТО 20 
100 END 


Notice that the computation of the multiplication factor (F) requires two statements because a 
single statement could exceed a single line (depending on its length). 


Correct. (e) А numeric variable cannot be compared with a 
This condition can never be satisfied. string variable. 

Correct. (f) Correct. 

Correct. 


Тһе string represented by P$ must come earlier in alphabetical order than the string represented by Q$. 


(a) 
(b) 
(c) 
(a) 
(e) 
(/) 
(g) 


(a) 
(5) 
(c) 


(a) 


Correct. 

Incorrect grammatical structure (THEN can be followed only by a statement number). 

Not all versions of BASIC allow use of GO TO in place of THEN. 

Correct. 

Тһе statement number to which control is transferred must be a positive integer, not a variable. 
Correct. 

Тһе condition can never be satisfied. 


40 IF K<15 THEN 50 


100 IF N$=“OPTION A” THEN 70 
110 GO TO 150 


60... 


150 IF Х>=100 ТНЕМ 200 
160 LET J=J+1 

170 INPUT X 

180 GO TO 60 

20 ... 

20 

80 IF 1-0 THEN 150 


90 LET S=S+J 
100 GO TO 20 


150... 
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(a) 
(b) 


(c) 
(a) 
(e) 


(a) 
(b) 
(c) 
(a) 
(e) 
(/) 
(g) 


(a) 
(b) 
(с) 
(4) 
(e) 
(a) 
(b) 
(с) 
(a) 


(e) 
(/) 


(a) 


(b) 


(с) 


(а) 
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Correct. 
The loop will continue indefinitely, since the value of J will always be reset to 1. (If statement 
number 80 is changed to 

80 GO TO 40 


then the loop will be executed correctly.) 

Control will always be transferred to statement 200. 

The loop will continue indefinitely since the value of X will never exceed 100. 
Correct. 


A string variable cannot appear in an ON-GO TO statement. 

Correct. 

An ON-GO TO statement cannot transfer control to itself. 

The statement numbers to which control is transferred must be positive integers, not variables. 
Correct. 

Not all versions of BASIC allow use of THEN in place of GO TO. 

Incorrect grammatical structure (ON must precede GO TO). 


An error message will result (execution cannot proceed because J— --1). 
Control will be transferred to statement number 20. 

Control will be transferred to statement number 50. 

An error message will result (execution cannot proceed because J-K=5). 
Control will be transferred to statement number 100. 


Correct. 

A formula cannot appear in place of a running variable. 

String variables cannot appear in a FOR-TO statement. 

Correct. (Note that V(1), V(2) and V(3) are subscripted variables, which are discussed in Chapter 
5.) 


Correct. 
Illogical statement (the running variable is required to decrease in value, but cannot do so because 


of the positive STEP size). 
10 FOR 1=1 TO 200 
70 NEXT I 
(Statement numbers are arbitrary.) 
10 FOR 1=1 TO 200 
50 IF X<.001 THEN 175 
70 NEXT I 


175/538 
10 FOR I=1 TO 73 STEP 3 


70 NEXT I 
10 FOR C=.5 ТО А13-10 STEP A+B 


70 NEXT C 
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4.41 


5.40 


5.41 


5.42 


5.43 


5.44 


(b) 


(c) 
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The value of the running variable is altered within the loop. 
Correct. 


The loops overlap. 

The inner and outer loops use the same running variable (X). Also, both loops end with the same 
NEXT statement. 

Correct, provided numerical values have been assigned to the variables T and T1. 

The running variable in the NEXT statement (C) is not the same as the running variable in the 
FOR-TO statement (X). 


10 LET Y-SQR(SIN(X)-COS(X)) 

10 LET P- Q*EXP(-O*T) 

10 LET C- LOG(SOR(ABS(A-*B)))* LOG(SQR(ABS(A- B))) 
10 LET W- ABS(ABS(U- V)- ABS(U* V)) 

10 LET Z=COS(X+ATN(Y)) 


10 ON SGN((A*B-C*D)/(F*-G))*2 GO TO 135,260,75 
100 PRINT TAB(4);“X=";X;TAB(28);“Y=";Y ;TAB(S2);“Z="";Z 
100 IF (N/2)- INT(N/2) THEN 200 
Control will be transfered to statement number 200 if N is even-valued. 
Control will continue to be transferred to statement number 200 if N is even. 


N$ is a string list. 

A is a numeric table, А$ a string table, B a numeric list and C$ a string list. 
P$ is a string list, P is a numeric table. 

Z is a numeric table. 


Correct. 

Correct. 

The quantities enclosed in parentheses in the DIM statement must be positive integers; variables 
are not allowed. 

A DIM statement cannot contain nonsubscripted variables (in this case, the variables C1 and C2). 
A subscript cannot have a negative value. 

Correct. 


10 LET S-0 
20 FOR I-1 TO 199 STEP 2 
30 LET 5=8+Х(1)12 

40 NEXT I 

50 LET SI-SQR(S) 

10 FOR I-1 TO 8 

20 FOR J-1 TO 12 


30 LET H(LJ)- 1/(I-J-1) 
40 NEXT J 
50 NEXT I 


100 FOR I-1 TO N 

110 IF К(1)>15 THEN 130 

120 PRINT TAB(8);"I- E TAB(44);"K - ";K(I) 
130 NEXT I 


5.45 


(a) 


(e) 


(f) 


(8) 


(а) 


(b) 


(c) 


(4) 
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100 LET P=1 
110 FOR I=1 TO K 

120 LET P-P*W(LI) 

130 NEXT I 

100 FOR I=1 ТОМ 

110 РАМТ ТАВ(10);М5(1,4) 
120 NEXT I 

100 FOR I=1 TOM 

110 — PRINT M$(L4);* 7; 
120 NEXT I 


100 FOR J=1 TO N 
110 PRINT M$(5.);* "; 
120 NEXT J 


10 READ L$(1),L$(2).L$(3),L$(4),P.Q.R.H$ 
20 READ T(1,1)T(1,2) T(1,3), T(1,4), T(2.1), T(2,2), T(2.3). T(2,4) 


200 DATA WHITE, YELLOW, ORANGE, RED 
210 DATA 2.25E45,6.08E-9,- 1.22E-- 12,RESTART 
220 DATA 1,-3,5,-7,-2,4,-6,8 
Тһе READ and БАТА statements сап be combined ог expanded if desired. 


10 FOR 1=1 TO 4 

20 READ L$(D 

30 NEXT I 

40 READ P,Q,R,H$ 

50 FOR 1=1 ТО 2 

60 FOR J=1 TO 4 


70 READ T(LJ) 
80 NEXT J 
90 NEXT 1 


The DATA statements will bé the same as in part (a). 


10 FOR 1=1 TO 4 

20 READ І.5(1) 

30 NEXT I 

40 READ P,Q,R,H$ 

50 FOR 1=1 TO 2 

60 FOR J=1 TO 4 


70 READ T(l.J) 
80 NEXT J 


90 NEXT I 

150 RESTORE* 

160 READ Р1,01,К1 

The DATA statements will be the same as in part (a). 


The solution is the same as in part (c), except that statement number 150 must be replaced by 


either 

150 RESTORE 

or 

150 RESTORE$ 

and statement number 160 must be replaced by 
160 READ A1$,A2$,A3$,A4$ 
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(а) 10 DEF FNY(A,B,X)=A*XTB 


(b 


х= > 


10 DEF ЕМО(В)=С0+С1*=В+С2*В12+С3*В13+С4*В14 


The values Гог C0 through C4 must Бе specified elsewhere in the program, before the function 


is referenced. 
(c) 10 DEF FNI(J,K)=(J+K)t(J+K) 
(d) 10 DEF FNR(A,B,C) 
20 IF Bt2<4*A*C THEN 50 
30 LET FNR-SQR(B12-4*A*C) 
40 GO TO 60 
50 LET FNR=SQR(4*A*C-Bt 2) 
60 FNEND 


(a) 10 DEF FNZ(Z)=INT(Z+.5) 
(b) 10 DEF FNP(N) 
20 LET P=1 
30 FOR I=1 ТОМ 
40 LET P- P*T(I) 
50 NEXT I 
60 LET FNP-P 
70 FNEND 
(c) 10 DEF FNR(A,B) 
20 LET FNR-0 
30 FOR 1=1 TO 5 
40 LET Х=А+(В-А)*ВМО 
50 IF Х<-Е THEN 70 
60 LET FNR-X 
70 NEXT I 
80 FNEND 


(d) 10 DEF FNWS(X) 


20 ON $СМ(Х)+2 GO TO 30,50,70 


30 LET FNW$-"NEGATIVE" 
40 GO TO 80 

50 LET FNW$-"ZERO" 

60 GO TO 80 

70 LET FNW$=“POSITIVE” 
80 FNEND 


(е) 10 DEF FNLS(N$) 
20 CHANGE N$ TO L 
30 LET N-90 
40 FOR I-1 TO L(0) 
50 IF N«-L(I) THEN 70 
60 LET N-L() 
70 NEXT I 
80 LET FNL$- CHR$(N) 
90 FNEND 


Note that the constant 90 is equivalent to the letter 


page 130). 


(а) 100 LET T=FNY(C1+C2,3,X+Y) 


[See the solution given for Problem 6. 41(a).] 


6) 100 LET Q-FNQ(LOG(X)) 


[See the solution given for Problem 6.41(5).] 


Z in the 7-bit ASCII code (see Table 6.1, 
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(с) 


(4) 


(e) 


(Р) 


(а) 


(b) 


(c) 
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100 PRINT FNI(A-B,C) 

[See the solution given for Problem 6.41(c).] 
100 LET D- ABS(X-FNZ(X)) 

[See the solution given for Problem 6.42(a).] 


10 FOR I-1 TO 60 
20 IF ЕМР(1)>1000 THEN 40 
30 NEXT I 

40 PRINT "N"; I 


[See the solution given for Problem 6.42(b).] 


10 FOR I-1 TO 20 
20 PRINT “I=”;1, “LARGEST R=";FNR(2,5) 
30 NEXT I 


[See the solution given for Problem 6.42(c).] 


The number of arguments in the function reference does not agree with the number of arguments 
in the function definition. 


This example contains two errors: 

(i) Тһе function name (ЕМС) is not assigned a value within the function. 
(ii) A RETURN statement cannot appear in a function definition. 
This example contains two errors: 

(i) Control cannot be transferred into a subroutine by a GO TO statement. 
(і) Ап FNEND statement cannot appear in a subroutine. 

This example contains two errors: 

(i) Тһе function is named incorrectly. 

(ii) Formulas cannot appear as dummy arguments. 

Arguments are not present in the function reference. 

Control cannot be transferred out of a subroutine by means of an IF-THEN statement. 


The program logic is incorrect. (The function references the subroutine, which in turn references 
the function.) 


Correct. Y 
Matrix formulas cannot appear in a matrix statement. 

Correct. 

Correct. 

Correct. 

A matrix cannot be updated by means of matrix multiplication. 


Matrix multiplication cannot be carried out unless the number of columns of the first matrix (X) is. 
the same as the number of rows of the second matrix (Y). In this example X has 20 columns but Y 


has only 10 rows. 
Тһе MAT INPUT statement should be written 
50 MAT INPUT V 
Correct, provided M and N are assigned positive integer values not exceeding 100 and 50, 
respectively. 
The variable dimension feature cannot be used with a MAT PRINT statement. 
Correct. 
One of the dimensions specified in the MAT ZER statement exceeds the corresponding dimension 
in the DIM statement. 


376 


7.40 


8.34 


(m) 
(n) 


(a) 


(6) 


(c) 


(a) 
(e) 


(f) 


(a) 


(b) 
(c) 
(a) 
(e) 
0) 
(g) 
(h) 
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A nonsquare matrix cannot have an inverse. 
Correct. 


100 MAT I=IDN 
110 MAT B=TRN(A) 
120 MAT C=B*A 
130 MAT D=C-I 
140 MAT F=(2*N+1)*D 
F will be a 10 x 10 matrix. 


100 MAT E=A*C 

110 MAT F=B+D 

120 MAT G=E-F 

130 MAT H=INV(G) 

140 LET DI-DET 

150 PRINT “DETERMINANT OF G=";D1 


Add the statement 
145 MAT PRINT G;H; 


to part (b) above. 
100 MAT A=ZER(12,8) 
100 МАТ READ A(8,12),B(6,15) 
The data block must contain the elements of A, та row-by-row order, followed by the 
elements of B, row-by-row. 


100 FOR I=1 TO 8 

110 FOR J=1 TO 12 
120 PRINT A(LJ); 
130 NEXT J 

140 PRINT 

150 NEXT I 

160 PRINT 

170 FOR I=1 TO 6 

180 FOR J=1 TO 15 


190 PRINT В(1,7); 
200 NEXT J 

210 PRINT 

220 NEXT I 


The FOR-TO loops are required because the variable dimension feature is not available with the 
MAT PRINT statement. 


Most versions of BASIC make use of the INPUT statement rather than the READ statement when 
reading a sequential data file. 


A random data file cannot contain both strings and numeric constants. 

Correct, provided random data files have been assigned to data channels 1 and 2. 

Correct. 

The SCRATCH and QUOTE statements must include data channel numbers, not file names. 
The FILES statement must include a file name, not a string variable. 

A pointer cannot be positioned beyond the end of the file. 

A string cannot be written onto a numeric random data file. 


8.35 


(a) 
(b) 
(с) 


(a) 


(e) 


(f) 


(g) 


(h) 
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10 FILES LIST1,,LIST2 
10 FILES NAMES$25,ACCTS% 


10 FILE :2,F$ 
20 FILE :5,G$ 


NEW OR OLD-->NEW 
NEW FILE МАМЕ--> TAPEI 
10707 
2014; 
Эта Data file TAPE1 
SAVE 

LIST 


NEW OR OLD--> NEW 
NEW FILE NAME--> ITEMS 
SAVE 


OLD 

OLD FILE МАМЕ--> OLD1 
SCRATCH 

OLD 

OLD FILE МАМЕ--> 01.02 
SCRATCH 

OLD 

OLD FILE МАМЕ--> NEWI 
RENAME OLD1 

OLD 

OLD FILE МАМЕ--> NEW2 
RENAME OLD2 


Presumably, the program described in Problem 8.35(f) will contain the statement 


10 FILES OLDI,OLD2,NEWI,NEW2 
This statement should be replaced by the following sequence of statements. 


10 INPUT A$,B$,C$,D$ 
20 FILE #1,A$ 
30 FILE #2,B$ 
40 FILE #3,C$ 
50 FILE #4,D$ 
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When the program is executed, the names of the input files will be assigned to A$ and B$, and 


the names of the output files to C$ and D$. 


10 INPUT A$;B$ 

20 FILE #5,A$ 

30 FILE #3,B$ 

40 QUOTE #3 

50 SCRATCH #3 

60 INPUT #5,N,F$,X,Y,Z,G$ 
70 PRINT #3,N,Z,F$,G$ 

80 IF END #5, THEN 100 
90 GO TO 60 

100 END 


378 ANSWERS TO SELECTED SUPPLEMENTARY PROBLEMS 


(і) 10 INPUT A$,B$ 
20 FILE :5,A$ 
30 FILE :3,B$ 
40 READ :5,X 
50 WRITE :3,X 
60 IF LOC(5)=LOF(5) THEN 80 
70 GO TO 40 
80 END 


(j) 50 INPUT P 
60 SET :6P 
70 READ :6,X 
80 SET :2,Р 
90 WRITE :2,X 
(k) 100 LET P1-LOC(1) 
110 LET P4-LOC(4) 
120 IF P1- P4 THEN 200 
130 LET P2-P1 
140 IF P4<=P1 THEN 160 
150 LET P2- P4 
160 SET :2,P2 


(1) 100 IF LOF(3)<>LOF(5) THEN 25 


Additional library functions (microcomputer), 246 
Additional statements (microcomputer), 238 


Advantages of BASIC, 10 

Air pollution data, averaging of, 71 
Algebraic equation, roots of, 60, 165 
Alphabetizing a list of names, 113 
ALTMODE key, 46 


American National Standards Institute (ANSI), 8 


AND, 235 
Animations, 334 
Area of a circle, 10 
Area and circumference of a circle, 47 
Area under a curve, 118, 119, 166 
Argument, 88 
Arguments, dummy, 121 
Arithmetic operators, 16, 235 
mixed, 234 
Arrays, 91 
definition of, 96 
redimensioning, 187 
Art, kinetic, 316 
ASC function, 131 
ASCII character set, 130, 363 
Assignment, 19 
Auxiliary memory devices, 4 
Average, geometric, 85 
weighted, 85 
Averaging of air pollution data, 71 
Averaging a list of numbers, 85 


Barchart generator, 341, 343 
BASIC, 1, 7 
advantages of, 10 
ANSI standard, 8 
history of, 8 
introduction to, 8 
Microsoft, 232 
summary of, 356-362 
variations in, 9 


BASIC library functions, summary of, 354 


BASIC program, structure of, 9 
BASIC programs, complete, 25 


BASIC statements, summary of, 352-353 
BASIC system commands, summary of, 355 


Batch processing, 4 

BEEP statement, 281 

Binary search, 221 

BINGO, game of, 168 

Bits, 3 

Blackjack, game of, 167 
Blank spaces, 10 

Blimp with animated text, 333 


Bouncing ball, simulation of, 151, 334, 337 


Branching, conditional, 58, 59 
multiple, 63 
unconditional, 27 
Brickout, game of, 351 
Buffer area (random data files), 255 
Building a loop, 67 
Bytes, memory, 3 


Calculating depreciation, 64 
Central limit theorem, 167 
CHANGE statement, 129 
Changing dimensions (matrix statements), 187 
Character data, 2 
Character graphics, 341 
CHR$ function, 131, 132 
CIRCLE statement, 325, 328, 329 
Circle, area of, 10 
area and circumference of, 47 
Circles, expanding, 326 
Clearing the screen, 269 
Closing a loop, 69 
CLS statement, 269 
Cobol, 7 
COLOR statement, 279, 310 
Color, use of, 279 
Comments, program, 27 
Compilation, 8 
Compound interest, 86, 113, 293 
Computer characteristics, 2 
Computers, capability to be programmed, 3 
general description, 1 
mainframe, 2 
microcomputer, 2 
minicomputer, 2 
personal, 2 
Concatenation, 19, 237 
Conditional branching, 58, 59 
Conditional looping, 241 
Console, 5, 42 
Constants, 15 
Convergence, 60 
Conversational programs, 6 
Correcting errors, 45, 52 
Craps, 137 
Creating a random data file, 219 
Creating a sequential data file, 205, 252 
Cursor movement, 269 
Curve, area under, 118, 119 
Curve fitting, 188 
with graphical display, 319 


Dartmouth College, 8 
Data, 2 
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Data block, 97, 98 
Data file, searching, 221 
Data files, 204 
microcomputer, 252 
random, 212, 255 
sequential, 204, 252 
DATA statement, 97 
Data types, memory requirements, 234 
numeric, 233 
suffixes, 234 
Data, input, 2 
output, 2 
Debugging, logical, 52 
Decoding data, 129 
DEF statement, 121 
DEFDBL statement, 239 
Defining arrays, 96 
Defining a function, 121 
Defining a subroutine, 141 
DEFINT statement, 239 
DEFSNG statement, 239 
DEFSTR statement, 239 
DELETE key, 45 
Depreciation, calculation of, 64 
DET function, 182 
Detecting errors, 52 
Determinant of a matrix, 182 
Deviation about the mean, 115 
Diagnostics, error, 50 
execution, 50 
interpretation, 50 
Differential equation, numerical integration of, 119 
DIM statement, 96 
Division, integer, 235 
Dots in space, 314 
Double-precision data type, 233 
DRAW statement, 333 
Dummy arguments, 121 


Editing commands, 49 
Editing, full-screen, 284 
program, 283 
Editing a sequential data file, 205 
Elementary functions, 88 
Elementary language extensions (microcomputer), 
232 
Encoding data, 129 
Encoding and decoding text, 167 
END statement, 25 
Ending, logical, 28 
physical, 28 
Entering input data, 97 
Entering a program, 44 
Entering student examination scores, 291 
ЕОУ, 236 
Error checking, 290-293, 302 


INDEX 


Error diagnostics, 50 
Error trapping, 240, 290 
Errors, detecting and correcting, 52 
grammatical, 50 
logical, 50 
syntactical, 50 
typing, 45 
ESCAPE key, 46 
Euler’s method, 119 
Exam scores, averaging of, 86, 87 
Exclusive OR, 236 
Execution diagnostics, 50 
Expanding circles, 326 
Expanding rectangles, 322 
Exponent, 15 
Exponentiation, 16-18 
Expressions, 16 


Factorials, calculation of, 86 
Fibonacci numbers, generation of, 74, 237 
Fields, 255 
File designations (microcomputer), 264 
File specifications, run time, 221 
Files, 204 
FNEND statement, 128 
FOR-TO statement, 67 
Format string, 243 
Formatted output, 243 
Formulas, 16 
special rules, 18 
Fortran, 7 
Full-screen editing, 284 
Function definition, 121 
Function keys, 273 
Function reference, 121 
Functions, library, 88, 89 
table of, 90 


Game of brickout, 351 

Game of chance, 137 

Game of paddleball, 338 

Games, computer, 6 

General-purpose languages, 7 

Generating piglatin, 248 

Generating random numbers, 136 

Generation of Fibonacci numbers and search for 
primes, 74, 237 

Geometric average of a list of numbers, 85 

GET statement (graphics), 336 

GET statement (random data files), 256 

GO TO statement, 27 

GOSUB statement, 141 

Grammatical errors, 50 

Graphical output on hard-copy terminal, 149 

Graphics fundamentals, 310 


и. ج‎ 


Graphics, character, 341 
microcomputer, 310 


Hard copy, 5 

Hierarchy of operations, 17, 236 
High-level languages, 7 

History of BASIC, 8 

Home mortgages, 116 


Identity matrix, 181 
IF-THEN statement, 59, 239 
IF-THEN-ELSE statement, 239 
IMP, 236 
Information, 2 

nonnumeric, 16 
INKEYS function, 242 
Input data, 2 
Input devices, programmable, 274 
INPUT statement, 20, 241 


suppression of question mark, 242 


INPUTS function, 242 
Integer data type, 233 
Integer division, 235 

Integer remainder, 235 
Integration, numerical, 118, 119 
Intelligent terminals, 42 
Interactive computing, 5 
Interpolation, 117 
Interpretation, 8 
Interpretation diagnostics, 50 
Introduction to BASIC, 8 
Inventory control, 218, 256 
Inverse of a matrix, 182 
Iterative procedure, 60 


Job, 4 
Joystick, 276 


Kaleidoscope, 324 

Kemeny, John, 8 

Keyboard (microcomputer), 272 
Keywords, 10 

Kinetic art, 316 

Kurtz, Thomas, 8 


Laboratory data, storage of, 305 

Lagrange interpolation, 118 

Languages, general-purpose, 7 
high-level, 7 

Least squares curve fitting, 188 
with graphical display, 319 

Least squares, method of, 188 

Legendre polynomials, 115 

LET statement, 19 

Library functions, 88, 89 
microcomputer, 246 


INDEX 


Light pen, 274 
Lightning bolt, 315, 327 
Line numbers, 9 
LINE statement, 314, 315, 321 
Line, deletion of, 10 
Linear regression, 318 

with graphical display, 319 
List of numbers, reordering, 98 
Lists and tables, 91 
LOC function, 214 
LOCATE statement, 269 
LOF function, 214 
Logging in, 43 
Logging out, 49 
Logical debugging, 52 
Logical ending, 28 
Logical errors, 50 
Logical operators, 235 
Loop, building, 67 
Looping, 58 

conditional, 241 
Loops, nested, 74 
LPRINT statement, 244 
LPRINT USING statement, 244 


Machine language, 7 
procedures in, 257 

Mainframes, 2 

MARGIN statement, 224 

Mass storage devices, 264 

MAT CON, 181 

MAT IDN, 181 

MAT INPUT 176 

MAT INV, 182 

MAT PRINT, 174 

MAT READ, 173 

MAT TRN, 181 

MAT ZER, 181 

Matrix addition, 170 

Matrix assignment statement, 169 

Matrix input/output, 172 

Matrix inversion, 183 

Matrix manipulation, 178 

Matrix multiplication, 114, 171 

Matrix operations, 169 

Matrix statements, 169 

Matrix subtraction, 170 

Maximum, search for, 123, 244 

Mean, 115 

Memory, 2, 3 

Memory devices, auxiliary, 4 

Menus, 292 


Method of successive substitutions, 118 
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Microcomputer BASIC, features not present, 258 


Microcomputer data files, 252 
Microcomputer environment, 264 


384 


Microcomputer graphics, 310 
Microcomputer system commands, 266 
Microcomputers, 2 
Microsecond, 4 
Microsoft BASIC, 232 

summary of, 356-362 
Minicomputers, 2 
Mixed arithmetic operations, 234 
Modem. 42 
Modes of operation, 4 
Monitor, TV, 5, 269 
Monte Carlo method, 166 
Monthly payroll, 143 
Mortgages, 116 
Mouse, 278 
Moving the cursor, 269 
Moving lines, 316 
Multicolored text, 279 
Multiline functions, 127 
Multiple branching, 63 
Multiple statements per line, 237 


Negation, 235 

Nested loops, 74 

Nested subroutines, 142 

Newton's method, 118 

Newton-Raphson iteration, 118 

NEXT statement, 69 

Normally distributed random variates, 167 

NOT, 235 

NUM function, 177 

Numbers, 15 

Numeric data types, 233 

Numeric variables, 16 

Numerical data, 2 

Numerical integration, 118, 119 
Monte Carlo method, 166 


Object program, 8 
ON ERROR GO TO statement, 240, 302 
ON-GO TO statement, 63 
ON-GOSUB statement, 240 
Operands, logical, 235 
Operations, hierarchy of, 17, 236 
Operators, 16 

arithmetic, 16, 235 

logical, 235 

relational, 58 
OR, 235 
Output data, 2 
Output, formatted, 243 


Paddleball, game of, 338 
PAGE statement, 224 
PAINT statement, 327 
Palette, 311 

Parentheses, use of, 17, 18 
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Pascal, 7 
Password, 44 
Payroll, monthly, 143 
weekly, 165 
Personal computers. 2 
Personal finance, 293 
Physical ending, 28 
Piechart generator, 329 
Piglatin. generation of, 132, 248 
Pixels, 310 
PL/1, 7 
Playing the stock market, 188 
Pointer, internal, 105 
Pointers, 214 
Points and lines, 312 
Portability, 7 
POS function, 271 
PRESET statement, 313 
Primes, search for, 74, 237 
Principal diagonal of a matrix, 181 
PRINT statement, 21 
line spacing, 22 
significant figures, 22 
spacing of output items, 23 
strings, 23 
PRINT USING statement, 243 
Printing output, 21 
Processing a program, 47 


Processing student examination scores, 208, 253, 
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Program, 2 
Program comments, 27 
Program editing, 283 
Program execution, 2 

repetitious, 28 
Program, object, 8 

source, 8 
Programmable input devices, 274 
Programming the function keys, 273 
Programming a joystick, 277 
Programming languages, 7 
Programming a light pen, 275 
Programming a speaker, 281 
Programming a TV display, 272, 282 
Programs, conversational, 6 
Prompting, 45, 241, 290 
PSET statement, 312 
Pseudo-random numbers, 136 
PUT statement (graphics), 336 
PUT statement (random data files), 256 


Quadratic equation, roots of, 25, 28 


Random data file, creating, 219 
reading, 215 
writing, 218 

Random data files, 212, 255 


Random numbers, 136 

Random variate, normally distributed, 167 
RANDOMIZE statement, 136 
READ statement, 97 

Reading input, 20 

Reading a random data file, 215 
Reading a sequential data file, 206 
Real data type, 233 

Records, 255 

Rectangles, expanding, 322 
Referencing a function, 121 
Referencing a subroutine, 141 
Regression, linear, 318 

Relational operators, 58 
Reliability, 3, 4 

REM statement, 27 

Remainder, integer, 235 

Remarks, 27 

Reordering a list of numbers, 98 
Repetitious program execution, 28 
Rereading data, 105 

RESET statement, 214 
Resolution, 310 

RESTORE statement, 105, 224 
RESUME statement, 240 
RETURN key, 45, 46 

RETURN statement, 141 

RND function, 136 

Roots of an algebraic equation, 60, 165 
Roots of a quadratic equation, 25, 28 
Roulette, game of, 167 

Rounding, 235 

RUBOUT key, 45 

Run time file specifications, 221 
Runge-Kutta method, 119 
Running variable, 69 


Scalar multiplication (of a matrix), 171 
SCREEN statement, 279, 310 
Scrolling, vertical, 271 
Search for a maximum, 123, 244 
Search for primes, 74, 237 
Searching a data file, 221 
Sequential data file, 204, 252 
creating, 205, 252 
editing, 205 
reading, 206 
writing, 208 
SET statement, 214 
Shapes, 321 
Shooting craps, 137 
Significant figures, 15 
Simplicity, program, 7 
Simpson’s rule, 119 
Simulation of a bouncing ball, 151, 334, 337 
Simultaneous algebraic equations, solution of, 183, 
184, 203 
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Siren, program to generate, 281 
Smart terminals, 42 
Solution of simultaneous algebraic equations, 183, 
184, 203 
SOUND statement, 281 
Sound, use of, 279 
Source program, 8 
SPACE$ function, 269 
SPC function, 270 
Special matrices, 180 
Special rules concerning formulas, 18 
Speed, 4 
Standard BASIC library functions, summary of, 354 
Standard BASIC statements, summary of, 352-353 
Standard BASIC system commands, summary of, 
355 
Standard deviation, 116 
Standard functions, 88 
Statement numbers, 9 
Step, 69 
Stock market, playing, 188 
STOP statement, 64 
Storage devices, microcomputer, 264 
Storing laboratory data, 305 
String variables, 16 
Strings, 15 
Structure of a BASIC program, 9 
Structured programming, 240 
Student examination scores, 291, 302 
processing, 208, 253 
Submenus, 293 
Subroutines, definition of, 141 
nested, 142 
Subscripted variables, 92 
Successive substitutions, method of, 118 
Suffixes, variable, 234 
Summary of Microsoft BASIC, 356-362 
Summary of standard BASIC library functions, 354 
Summary of standard BASIC statements, 352-353 
Summary of standard BASIC system commands, 
355 
Syntactical errors, 50 
System commands, 49, 266 


Table of functions, 90 
Table manipulation, 101 
Tables, 91 
Terminal, 2, 5, 42 
timesharing, 5 
Text, multicolored, 279 
Tic-tac-toe, game of, 167 
Time of day, 268 
Timesharing, 4, 7 
Timesharing terminal, 2, 5, 42 
Transferring control, 27 
Transpose of a matrix, 182 
Trapezoidal rule, 118 
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Truncation, 88, 235 

TV display, programming, 272, 282 
TV monitor, 5, 269 

Typing errors, 45 


Unconditional branching, 27 
Uniformity, 7 

User verification, 305 
User-friendly programming, 290 


Variable dimension feature, matrix statements, 187 
Variable names, 232 
Variable, running, 69 
Variables, 16, 232 
numeric, 16 
string, 16 
subscripted, 92 
Variance, 116 
Variations in BASIC, 9 
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Vector input/output, 172 
Vector operations 169 
Verification, user, 305 
Vertical scrolling, 271 


Weekly payroll, 165 

Weighted average of a list of numbers, 85 
WEND statement, 241 

WHILE statement, 241 
WHILE-WEND loops, 241 

Word processing, 2 

Word unscrambling, 93 

Words, memory, 3 

Workstation, 2 

Writing complete BASIC programs, 25 
Writing a random data file, 218 
Writing a sequential data file, 208 


XOR, 236 
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Summary of Standard BASIC Statements (Appendix A) 


Statement Example Reference Statement Example Reference 
CHANGE 10 CHANGE N$ TO N Section 6.4 MAT = 10 MAT C=A Section 7.1 
DATA 10 DATA 12,SEVENTEEN,-5 Section 5.5 MAT + 10 MAT C=A+B Section 7.1 
DEF 10 DEF FNR(A,B,C)=SQR(A12+B12+C12) Section 6.1 MAT - 10 MAT C- А-В Section 7.1 
DIM 10 DIM A(10,20),X(20),F$(60) Section 5.4 MAT (K)* 10 MAT С-(10жА Section 7.1 
END 10 END Section 2.11 | MAT * 10 МАТ C- A*B Section 7.1 
| ЕМЕМО 10 FNEND Section 6.3 МАТ СОМ 10 МАТ В-СОМ Section 7.3 
FOR-TO 10 FOR 1-1 TO 99 STEP 2 Section 4.5 MAT IDN 10 MAT C=IDN Section 7.3 
GO TO 10 GO TO 50 Section 2.14 | МАТ INPUT 10 МАТ МРОТ А Section 7.2 
GOSUB 10 GOSUB 300 Section 6.9 MAT INV 10 MAT B=INV(A) Section 7.3 
| IF-THEN 10 IF I>=100 THEN 80 = Section 4.2 MAT PRINT 10 MAT PRINT А Section 7.2 
| INPUT 10 INPUT A,B,C,M$,N$ Section 2.9 MAT READ 10 MAT READ А Section 7.2 
LET 10 LET A-3.141593*R12 Section 28 | МАТ ТЕМ 10 МАТ B=TRN(A) Section 7.3 
| МЕХТ 10 NEXT 1 Section 4.6 МАТ ZER 10 МАТ A=ZER Section 7.3 
ON-GO TO 10 ON K GO TO 15,40,25,40,60 Section 4.3 
PRINT 10 PRINT “X=";X,“Y=";Y Section 2.10 | FILE 10 FILE :1,F$ Section 8.3 
RANDOMIZE 10 RANDOMIZE і Section 6.7 | FILES 10 FILES SCORES Section 8.1 
| READ 10 READ K,N$,Z(1) Section 5.5 IF END-THEN 10 IF END #1, THEN 130 Section 8.1 
REM 10 REM AREA OF A CIRCLE Section 2.13 | INPUT 10 INPUT #1,N,T$,Y$ Section 8.1 
| RESTORE 10 RESTORE Section 5.6 PRINT 10 PRINT #2,N;N$ Section 8.1 
RETURN 10 RETURN Section 6.8 | QUOTE 10 QUOTE #2 Section 8.1 
| $ТОР 10 $ТОР Section 4.4 READ 10 READ :1,L Section 8.2 
SCRATCH 10 SCRATCH #2 Section 8.1 
SET (RESET) 10 SET :1,L Section 8.2 
| WRITE 10 WRITE :1,М Section 8.2 
| Arithmetic Operators: + = * / t 
Relational Operators: = <> <= < >= > 


Summary of Standard BASIC Library Functions (Appendix В) 


) Function Example Reference Function Example Reference 
ABS 10 LET Y=ABS(X) Section 5.1 LOF 10 LET N1-LOF(3) Section 8.2 
| АТМ 10 LET Ү-АТМ(Х) Section 5.1 LOG 10 LET Y=LOG(X) Section 5.1 
ASC 10 LET N=ASC(T) Section 6.5 NUM 10 LET N(0)-NUM Section 7.2 
CHR$ 10 LET N$=CHRS(N) Section 6.5 RND 10 LET X- RND Section 6.6 
COS 10 LET Y=COS(X) Section 5.1 SGN 10 LET Y=SGN(X) Section 5.1 
| COT 10 LET Y-COT(X) Section 5.1 SIN 10 LET Y-SIN(X) Section 5.1 
DET 10 LET X- DET Section 7.3 SOR 10 LET Y-SQR(X) Section 5.1 
| EXP 10 LET Y=EXP(X) Section 5.1 TAB 10 PRINT TAB(N);X Section 5.1 
| INT 10 LET Y=INT(X) Section 5.1 TAN 10 LET Y=TAN(X) Section 5.1 
LOC 10 LET N=LOC(1) Section 8.2 


Summary of Standard BASIC Systems Commands (Appendix C) 
Command Purpose ў Ў Command Purpose 


BYE Terminates timesharing session. "l. ES S REPLACE Causes the current file to be saved (stored) in place 
| CATALOG Lists names of all files being saved. ^ 3 > á ^ a ial ped) with the same name. 
Log dle чыг 5 -| RUN Causes the current program to be compiled and 
LIST Produces a listing of the current file. mc b executed: 
NEW Specifies that a new file will be Created: SAVE Causes the current file to be saved (stored). 
UL Accesses an existing file. SCRATCH  Removes the current file from the computer's 
RENAME Allows the name of the current file to be changed. memory. 
SYSTEM Transfers control from BASIC to the system 
monitor. 
UNSAVE Cancels permanent storage of a file. 


Microsoft BASIC is summarized in Appendix D, pp. 356-362. 
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